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Coming Soon 


Not quite as much as we would have liked, 
unfortunately. See Editor's Notebook on page 9. 


Ten New Digits for 
Digital Precision 


Your assistance is craved to 
give the Vachhas a breather. 

Digital Precision have been 
augmented, however slightly for 
the present time, by the arrival of a 
d aughter, Michelle, of very small 
dimensions. Congratulations to 
Julie and Freddie. 

Due to her early arrivel and a 
minor operation, Michelle is being 
looked after by Great Ormond 
Street Hospital in London for the 
time being. The new arrivel and a 
recent bereavement in the family 
are occupying Freddie and Julie's 
thoughts a good deal at the 
moment, so Freddie asks if DPs 
customers would kindly send in any 
technical or trade queries or any 
complicated orders in by letter for 
the time being, so that he can han- 
dle them more easily. Normal 
orders will be handled by the 
answering machine as usual. 

For any of Digital Precision's 
customers who are affected by the 
holdup on boards for the new batch 
of Miracle Super Gold Cards, the 
batch is expected towards the end 
of May and so should be on their 
way by the time you read this. 


Progs List Information 


PROGS have issued some new leaflets on all their programs. The leaflet 
designs are based on their excellent graphics package LineDesign. 

"LineDesign" say Progs "Is a drawing program, but it can also be used by 
people why are not good at drawing." They also supply 150 clipart examples. 

ProForma Is a vector graphics library for C and Assember program- 
mers, giving high quality output. ProForma is used by LineDesign, PFlist and 
PFdata to produce the output. ProForma includes clipping paths, transforma- 
tion matrixes, true WYSIWIG, grey shades, lines and Bezier curves, and other 
facilities incuding bitmapping for older graphics. 

PFlist is an easy-to-use listing generator for any printer, especially 
inkjet and laser printers. It can include footers with name and date (not for QL 
World please!), and always allows space for hole-punching for filing. Listings 
can be in full page, two columns and/or landscape, and the fonts and font size 
can be chosen from a selection. 

There are now some smaller members in the DataDesign - "probably the 
most userfriedly database program in the world!" to quote Progs again - family. 

PFdata creates hardcopy from DataDesign through ProForma, giving a 
large selection of fonts (including those available in LineDesign and PFlist, for 
LineDesign users. You see how all PROGS' progs work together). "PFdata is 
the ideal too! for generating tables", say Progs. Using DataDesign as its 
source, it can also create labels etc. PFdata also allows you to specify a 
LineDesign file as a background to the printout, so that output can be mixed 
with drawings, logos, etc. 

The confusingly-named (as others have also remarked) pfb2pff is a col- 
lection of programs to allow you to convert an Adobe Type 1 -pfb files into a 
ProForma -pff font file, add kerning information, print out the complete fonts. 
Bryan has more to say about this in Troubleshooter this month. 

News on DataDesign API is that the C interface has now been adjusted 
to make it compliant with C68 V4.10 onwards, with a few minor changes. 

Among the other leaflets which Progs have produced is a complete 
DataDesign Engine versions pedigree to date - interesting for reference. When 
we say complete, we mean including such comments as: 

"v3.07 view still allowed you to scroll one too far (oops)". 

For more information and price lists please contact Progs Professional 
and Graphical Software, Haachtstraat 92, B-3020 Veltem, Belgium. Tel. 
010 32 16 48 8952 (from UK to Belgium). 


QL 10 Anniversary in Belgium on 18th June! 


Miracle Systems are Sponsoring June's QL Tenth Anniversay show , at 
the Eurovolleycenter, Beneluxlaan, Vilvoorde, Brussels in Belgium. 

The Belgian show, organised as usual by Jacques Tasset of Club Sinclair 
BruQsl, is on Saturday 18th June 1994 from 10am to 17pm. For further news 
contact Jacques, Aarlenstraat 104, B-1040, Brussels. Tel. 010 32 2 233 1222. 

Miracle will be showing the Super Gold Card (which has been in short 
supply well into May, as the demand took overyone by surprise, "even Digital 
Precision" according to Freddie, and the sophisticated four-layer PCB in the 
Super Gold Card can't be done as a rush job). It's being reported here and 
there that Gold Card users are often ordering SGCs for their "first machine" 
and handing on their Gold Cards to their "second machine". Also expected 
from the English side are other members of the travellers league of QL suppli- 
ers - Tony Firshman, Bill Richardson, and Ron Dunnett of Qubbesoft. 

Stuart Honeyball of Miracle alone among the English suppliers made it to 
Rhode Island this year - the rest of them went to the Quanta workshop in 
Surrey on the same day! Well, lower overheads. Stuart reports that the Miracle 
in Newport show was smallish, but saw a lot of money changing hands and a 
jolly good place to socialise. "Everyone saw it as a highly successful show", he 
says - not bad cnsidering he wasn't able to take.Super Gold Cards with him 
because of the aforementioned shortage at the time. 

Next year IQLR's Bob Dyl is hoping to put the Show on in Detroit, which is 
several hundred miles more centralin the USA than Newport, offering lower 
overheads to American travellers, who come from all over the States. 
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PC Archive? 


| understand that there is 

a PC version of Archive in 

existence. | would be very 

grateful if this could be con- 

firmed and if so, where it can 

be obtained. | know of 

ArcPlus, but cannot afford 

£250. Hopefully Archive for 

the PC will be a bit more rea- 
sonable priced. 

Dave Sanderson 

Portland 

Dorset 


There seems to be a 
sudden revival of interest in 
advanced Archive, even 
before Transform released 
their latest version of ArcPlus. 
Psion no longer self or sup- 
port PC-Four - | got the 
impression they were out of 
stock - , and Transform are 
the only company they are 
aware of working with PC 
Archive, 

Psion's address for 
enquiries in the UK is 
Customer Services, Psion Pic, 
Alexander House, 85 
Frampton St., London NW8 
8NQ. In the field likely to be 


of interest to QL users now, 
Psion concentrate almost 
entirely on their famous 
Organisers. 


Add On Inf 


In my last mailing, | 
asked my customers what 
sort of add-ons they would 
like to see for Qdos. The fol- 
lowing “hit list" is compiled 
from over 100 replies (giving 
about 230 wishes). | think it 
should be very interesting to 
programmers and developers, 
and | hope to make sure it is 
published wherever possible: 


1. A word processor 
running under the Pointer 
Environment. 

2. Desktop publishing 
under the Pointer 
Environment, but integrated, 
not as two programs like 
LineDesign/Text87. Maybe 
the next job for Progs? 

More than one-third of 
the customers asked for one 
of the two things above! 

3. Fax software. it 
seems that many people have 
not recognised that Jonathan 
Hudson has written an excel- 
lent Fax software package, 
called QFAX, which is PD and 
can be obtained from various 
sources, including my QBox. 

4. (Which surprised me 
most) A replacement pro- 
gram for Easel, under the 
Pointer Environment. 

5. An Archive replace- 
ment. (We have got 
DataDesign, but this does not 
seem to be suitable for some 
of the customers, although | 
don't know why!) 

6. A real CAD program. 
{Electronic or structural, 
Jochen?] 

7. More colours (can't 
be done in software, sorry!). 

8. Pointer communica- 
tions program - again, we 
have a superb PD program 
which codes everything 
including ZMODEM. It is 
called QTPI! 

9. Footnotes in text87 - 
but not a lot | can do about 
that! 

10. Fast disk copier for 
ALL systems, including Atari 
and Gold Card. 

11. Backup program. A 
very good PD backup pro- 
gram, written by Arvid 
Borretzen, is called NorBack 
(which can be downloaded 
from the Qdos Box). 
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12. Scanner interface 
and software, but NOT a 
printer's head scanner. 


All of the remaining wish- 
es were unique, which again 
proves that most Qdos users 
are very individual users. 
There are all sorts of wishes, 
ranging from BTX programs 
(same as Mintel in France), 
Mac-Emulator, Minix, Disk 
Doctors, etc. up to specific 
conversion programs for peo- 
ple who use Qdos and other 
programs on other systems. 

Best regards, 

Jochen Merz 
Duisberg 
Germany 


Deskjet Printer 


After your remarks about 
not informing the readership 
about things that | knew, | 
have taken your request for 
information from satisfied 
printer users. So here goes: 

Some time ago | had 
need to produce a quality the- 
sis for my daughter who was 
at University. From around the 
end of 1984 | had been using 
a Brother HR15 and had been 
very satisfied with it apart 
from the noise of the daisy 
wheel and its slow printing 
rate. 

| wanted to produce the 
thesis in Times Roman using 
different fount sizes and pro- 
portional spacing. This led me 
into the realms of Text87 and 
a HP DeskJet 500 together 
with the special DeskJet dri- 
ver from Software87. With 
this setup | have no difficulty 
in printing the @ in Norweigan 
names without resorting to 
transiation tables and the like. 

| purchased a fount car- 
tridge for Times Roman and 
was then able to print in 8, 
10, 12 and 14 point Times 
Roman with the usual bolds, 
supers and subs and was all 
set to go. The result looked 
very professional and we 
were ail delighted with the 
presentation. 

That was just over three 
years ago and the DeskJet 
has continued to work hard for 
its living, Countless reams of 
A4 paper have gone through 
the machine and it has been 
used to produce a variety of 
letters, notices etc. 
LineDesign is now used to 
produce the latest notices and 
listings. 


The DeskJet is a very 
simple machine to set up and 
| have created setup files to 
use it for Quill, The Editor, 
and Perfection. | can there- 
fore highly recommend it. | 
have no reason to believe that 
the modern day updates to 
the basic deskjet family would 
be any different. 

| have said my machine 
had gone through many 
reams of paper without prob- 
lem. That was until one day 
towards the end of last year it 
spat out a cog! | contacted the 
Customer Services 
Department of HP on a Friday 
and asked for the name of 
local authorised repairers. | 
was told that they did their 
own repairs and was asked 
for the serial number. A phone 
call later | was told that the 
machine has a 3-year warran- 
ty and my machine was in 
warranty. | was even more 
surprised to be told that they 
could call at my home and 
collect the machine for repair. 
A date was made for the fol- 
lowing Monday afternoon. 
Much to my amazement and 
delight it was delivered back 
to me on the Thursday after- 
noon free of charge. That is 
what | call Service! 

In summary the HP 
DeskJet is a_ fantastic 
machine and | have had 
exceptional service from HP. 

| am please to see that 
SNG has finished with that 
blasted mouse driver! in his 
latest offering he seems to be 
in part duplicating the tasks 
done my TaskMaster and 
Qpac2. Both offer simple han- 
dling of files and offer also a 
means of viewing them. 
Anyway, here is my cheque 
for another year. Would you 
please note the change of 
address and by the way, what 
happened to the 
Troubleshooter in the March 
issue? 

A G Kendall 
Felden 
Herts 


Thank you. The Deskjet 
is popular and not expensive 
for what it does. Output quali- 
ty is high, and AG has rein- 
forced the point about foreign 
characters by decorating the 
top of his continuation sheet 
with a string of Os! 

Troubleshooter was hav- 
ing time off owing to pressure 
of business. Simon will be sad 
that you don't like his mouse 


Open 
peerage 
Sinclair QL 


= 


driver, but pleased that you 
have remembered his N. 


Ramdisks 


An answer to Arthur 
Nunn's query in Vol. Ill.1: a 
ramdisk is a means of storing 
files in the QL's own memory. 
It can be used in a similar way 
to a microdrive, for example, 
by using SAVE RAM1_test 
instead of SAVE MED1 _ test. 
However, unlike a microdrive, 


when the QL is switched off’ 


(or reset) the ramdisk loses its 
contents. The advantage of 
using a ramdisk is speed of 
operation - you can save/load 
files to/from a ramdisk much 
faster than to/from a micro- 
drive or disk drive. However, if 
you save anything to a 
ramdisk that you want to 
keep, always make sure that 
you copy the files across to a 
mdv or disk drive before 
switching off the QL. 

As to where you might 
find a ramdisk, several floppy 
disk interfaces (such as 
Trump Card) include a 
ramdisk which is available as 
soon as the QL is switched 
on. Otherwise, there are sev- 
eral in the public domain or 
even available commercially - 
these will need to be loaded 
into the QL when it is first 
switched on, for example, by 
LRESPR mdv1_ramprt. Only 
once these latter types have 
been Joaded into the QL can 
they be used for saving or 
loading programs. 

Rich Mellor 
Walsall 


LX-100 Printer 


In Vol. 3.3, you suggest- 
ed that readers should write 
regarding recent printer pur- 
chases, 

In March this year | was 
looking for a new printer and 
had noted in various maga- 
zines that the Epson LX-100 
was advertised at around 
£100 plus Vat and carriage. 
When | saw one in an Argos 
store at £119, | took the 
plunge. 


hannel is where you had the 

to voice your opinions in 

orld. At least, it was until the 
channel had to close. If you have any 
words, we can still be reached at 
hannel, QL World 
Tew Lane, Wootton, Woodstock OX7 1HA. 


The Blue Barn, 


The fact that it had only a 
parallel port did not worry me, 
as | had a parallel port on my 
disk interface. A visit to a local 
Tandy store produced the cor- 
rect connecting cable for 
£4.95, and the printer worked 
first time. 

| think its output is very 
good indeed from all four 
fonts (Roman, Sans Serif, 
Draft and Draft Condensed). 
The fact that it will use ordi- 
nary A4 paper which it loads 
automatically from a 50-sheet 
cassette is a real boon. 

However, | have encoun- 
tered one problem, namely 
the old one of the pound 
sign! This is included in the 
italic character set which is 
supposedly accessible by 
changing the default settings 
or transmitting ESC codes 
from the computer. Changing 
the default settings sounds 
easy. Press the font button 
and switch on the power and 
the machine loads paper, and 
offers a choice of five lan- 
guages in which to print out 
the current defaults. From 
here, its behaviour deterio- 
rates, and any attempt to 
change these defaults results 
in the printer doing a ful! print- 
out of all the options without 
giving the poor user any 
chance to make a choice, The 
ESC codes which should be 
the easiest method of obtain- 
ing single characters have so 
far baffled me, but | have 
hopes of working out the cor- 
rect code eventually. 

This is not something 
which is essential to my use 
of the printer, and generally | 
am well pleased with it. 
However, the existence of 
facilities which | cannot use is 
mildly irritating and | should 
be grateful if you could be of 
any help. 

G W Rogers 

Hall Lane 

Sutton Lane Ends 
Macclesfield 


Oh Ser (1 and 2) 


The 1950s were some- 
what pruder than today. | 


recall the shock, discovering 
as a self-conscious teenager, 
that while the public face of 
continental loos could present 
two doors (ladies and gents, 
jsut like ours), they often led 
into a common area of cubi- 
cles used by both sexes. 
Eeek! The QL design team 
produces a similar deception, 
that my granny would have 
referred to as "net curtains 
and no drawers". 

This was brought to mind 
on discovering that, with 
SERmouse inputting on 
SER2, it was also inputting on 
SER1 at the same time. Two 
sockets on the outside, ofe 
Device in the "works’?? (Try 
inputting to SER2, and watch 
COPY SER1,SCR). Could 
someone provide some words 
of wisdom on the subject, 
please? 

{It would be nice to have 
SERmouse and a modem 
working without plugging and 
unplugging of leads. The con- 
tinental loos {in the 1950s) 
had a concierge to sort out 
the mix-up of sexes, and to 
show you to your “seat”. Can 
somebody, | wonder, do the 
same for the SER device? 
Any responsibility for the 
association of ideas remains, 


of course, with my parenting. 
Above effect seen on QL 
(JS, D116) /Minerva /GC 
/Hermes. 
Ivan Hall 
Lapford 
Devon 


Biros Limited! 


We received a polite let- 
ter from representatives of 
Biro Bic Ltd., pointing out that 
"Biro", as featured in the reply 
to Ill.3's letter QED Search, is 
an active trademark of Biro 
Bic Ltd., and please not to 
use the word "biro" with a little 
b (which in strict grammatical 
terms, | suppose, doesn't real- 
ly exist, unless it's Greek) as a 
general termfor ballpoint. 

So there you are! As it 
happens, the Biros | had in 
mind are, in fact, Bic "Crystal" 
Mediums in blue, black and 
(professionally) red, to be 
exact, of which | have been a 
devoted user since the early 
‘70s. I'm getting short of blue 
ones, come to think of it. 
There are none round here | 
would stoop to pinch. There is 
one before me even as | type, 
but someone's been nibbling 
it. | think it’s one of Jim's. 


BA ARER NYT 


Editor’s notebook 


| have been told that QL World must close 


with this issue. 


Heck of a way to celebrate the QL's 10th 
birthday and our own second year at Arcwind. 

But it was not entirely unexpected, and many 
of us are surprised and delighted that QL World 
was able to continue as long as it has. 

The publisher will be writing to our sub- 
scribers. Whether QL World will rear Its head 
again, we don't know but, if it does, it will be ina 
very different form. We are beyond the reach of 
normal commercial publishers now. But we shall 


This will affect my life personally in a number 
of ways, and not without trauma, But my first 
thought was "Darn, and we've only got another 
two months to go on the New User Guide!" 

| want to thank everyone, readers, suppliers, 
all QL people, especially the ones | won't be able 
to thank personally, and the publishers, 
for your support over the years. 

Goodbye and God bless. 
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TROUBLESHOOTER 


Bryan Davies muses on founts, and a new directory service from BT. 


here have been 
many founts creat- 
ed for use on the 
QL, but too many of 
them have not been good. 
Few users will have the 
patience, or knowledge, to 
sit down and create their 
own founts, so any pro- 
gram which offers to make 
the job easy is welcome. 
The Belgian software sup- 
pliers Progs have released 
a program called "pfb2pff" 
{how's that for a memo- 
rable program name?) 
which allows Adobe Type 1 
founts to be converted for 
use by their ProForma pro- 
gram. ProForma is used, 
and supplied, with 
LineDesign, and also with 
the lesser-known PFdata 
and PFlist. If you do not 
have any of these three 
programs, you can buy 
ProForma separately. 

What is not explained 
by Progs in their press 
release is what sources 
the Adobe founts can be 
taken from. It is stated that 
_PFB files can be convert- 
ed to _PFF (ProForma) 
files, and this may have 
been a misprint for .PFB, 
which is the PC format. 
Type 1 founts are com- 
mon, and usually quite 
good. 

We had a session with 
me demonstrating (some- 
what inadequately) Line 
Design version 2.00B at 
our local Quanta sub-group 
meeting in May and every- 
one seemed very im- 
pressed with the general 
speed of the program and 
its ability to enlarge text 
and images without ruining 
the appearance of them, 
The performance with the 
Gold Card is very good, 
and it will no doubt be con- 
siderably better with the 
Super Gold Card. The con- 


trast between the jagged- 
ness of the screen presen- 
tation and the smoothness 
of printed output empha- 
sised that the display really 
is the weak area of the QL 
system now, 


How to Use 
Cueprint? 


On the subject of 
founts, a reader asked 
some time ago how to 
make use of the fount 
down-loading function in 
the fount program 
CuePrint. Has anyone 
used this? In principal, it 
should be possible to make 
use of the founts provided 
with that program, without 
actually running the pro- 
gram itself. The printer the 
founts are sent to must 
have memory, to hold the 
founts, and the Kaga- 
Taxan KP-810 (and KP- 
910) had a spare chip 
socket which would take a 
chip supplied 

What the reader was 
apparently having trouble 
with was the method of 
telling the printer to use 
particular characters from 
any fount that had been 
sent to the printer. 

If there are two pro- 
grams of a type, the auto- 
matic tendency is to com- 
pare one with the other 
and say "that is the best", 
but we really do not need 
to do that. Take Text87 
and Perfection, or Profes- 
sional Publisher and 
LineDesign, and you have 
pairs of programs which 
aim to do the same job, but 
which do it in very different 
ways. For budget reasons, 
most users choose one or 
the other but, given the 
freedom, it would be desir- 
able to have all of them. 
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The memory now 
available to us makes it 
possible to have several 
major programs loaded at 
once, each of them avail- 
able within a second or so, 
and all running at a sensi- 
ble speed. My Gold Card 
system was quite happy to 
have Perfection 5.14, 
Text87 Plus-4 version 4, 
LineDesign 2.00B, Files 2 
(from TaskMaster) and 
FlashBack 2 loaded at the 
same time, during the 
Quanta session mentioned 
above. There were no 
painful lags in switching 
between these programs, 
and all ran normally. The 
screen did get a little con- 
fused at times, though! 


Ongoing Puzzles 


No information has 
come to light on a couple 
of queries. If anyone can 
shed any light on these 
problems, it would be wel- 
comed: 


1) On the Thor, use of 
the Ctrl, Shift and Alt keys 
with alphanumeric keys 
gives erratic results. The 
main manifestation is a 
long delay in response to 
the keypresses. Even 
worse, having pressed 
some of the combinations, 
the effects appear to be felt 
much later, after the keys 
have been released. This 
leads to unpleasant 
effects, such as text being 
deleted when least expect- 
ed! 


2) FSERVE - can this 
command safely be used 
in a normal boot file? Or 
should it be issued from 


the keyboard subsequent 


to boot-up? In some notes 
of mine (dated 1987), there 
was a comment to the 


effect that this command 
should not be used ina 
boot, and there was cer- 
tainly trouble of some sort 
when it was put into my 
standard boot, so that it 
now has REMark in front of 
it. Can it affect output from 
the SER ports? 


Odds and Ends 


Budding SuperBasic 
programmers might apply 
to Eurotunnel. One of my 
recent visitors told me that 
the developers of the 
engine-management soft- 
ware for traction units had 
left the project. It may be 
no more than a rumour, but 
those of us who live along- 
side the rail track would 
welcome any contribution 
that would quieten the 
Eurostar traction units 
down; they make a remark- 
able amount of noise to go 
so slow! One of their nois- 
es appears to come from 
the brakes, which seem to 
be off at the front of the 
train but on at the rear - bet 
the rear end is British! 

British Telecom has a 
facility called Phone Base, 
which is an on-line version 
of the telephone directories 
for the UK. If you have 
addresses and need the 
‘phone numbers to go with 
them, this system is worth 
investigating. There is no 
charge to join it, but you 
pay a fixed line charge; the 
rates when | checked a 
short time ago were from 
2.8 to 10 pence per 
minute, depending upon 
the day and time calls are 
made. You need a modem, 
and it has to be able to 
emulate a VT100 terminal 
and work with the standard 
"AT" codes. This should 
present no problem to cur- 
rent modems and software. 


| 


a ee 


The system is fairly easy to 
use, but has its drawbacks, 
related to its ancestry. You 
cannot ask for a 'phone 
number for someone 
named Jones anywhere in 
the country, for example. It 
is necessary to specify an 
area, and the largest area 
the system accepts is a 
County; there are quite a 
lot of counties in the UK, 
making it a lengthy (and 
costly) business to track 
down someone "of no fixed 
abode’. 

The modem | used 
when checking Phone 
Base was a Dataflex 
Pocket Gem, which is 
about the size of a large 
matchbox. You can also 
get modems on PCMCIA 
cards, little bigger than 
credit cards. The wonder of 
the size was considerably 
tarnished by the nine 
weeks it took for the 
modem software to arrive, 
from the time the device 
itself was purchased. Be 
assured that this was not 


from a QL supplier, though. 


Obscurantism 


One prime reason for 
hardware failing to achieve 
mass sales is the obscu- 
rantism practised by sup- 
pliers of certain types of 
product. Maybe that is the 
wrong word, but the dictio- 
nary describes an obscu- 
rant as "an opposer of 
reform and enlightenment", 
and that is something like 
what is needed. The 
modem field is a wonderful 
example of how to make a 
piece of hardware com- 
pletely useless for the 
average computer user, 
simply by making the 
instructions unintelligible 
and far too long. 

The Phone Base exer- 
cise was reminiscent of 
one long ago, when a set 
of Tandata units for the QL 
first came my way. All | 
wanted to do was contact 
one, simple service, but 
the instructions were 


almost totally irrelevant to 
that. It was necessary to 
read through pages and 
pages to find the odd snip- 
pets of information that 
related to the task in hand. 
Most potential buyers read 
or hear about this and for- 
get the whole idea. 
Looking for a cheap 
24-pin dot matrix printer? 
Give a thought to the 
Panasonic K-XP2123. 
This is a successor to the 
K-XP1123 and seems a 
better printer for the same 
price (£140 plus VAT, 
including delivery, from 
Novatech). A tractor feed 
mechanism is included, 
printing is reasonably quiet 
(there is a quiet, slower 
mode to make it even qui- 
eter), and setting-up is just 
as good - or bad as with 
most dot matrix printers. 
The controls on dot matrix 
printers all seem awful to 
me, these days, but there 
are a few thoughtful touch- 
es with the 2123 which 
ease the pain: paper can 
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be fed in three ways; the 
tractor feed can be push or 
pull; there is an extra-cost 
option to print in seven 
colours; there is an auto- 
matic feed-in sequence for 
continuous paper; a Tear 
Off switch allows the paper 
to be advanced or 
reversed for tearing sheets 
off. 


Panasonic K-XP2123 
DMP printer, £132 plus £8 
delivery plus VAT: 

Novatech 

Blueprint 1400 

Dundas Spur 

Portsmouth 

Hants. PO3 5RW. 


Tel 0705 664144 
Fax 0705 664244 


BRUSSELS 


Sponsored by MIRACLE SYSTEMS 
Saturday 18th June 1994 10h00 - 17h00 


Come to the international meeting to celebrate the first 10 
years of the QL. Don't miss it - there’s a mystery gift for all 
attendees. The new SUPER GOLD CARD will be 
demonstrated and on sale. Miracle Systems, TF Services, 

W.N. Richardson & Co. and many others will be there. 
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SuperBasic |) )\e00r 


Simon N Goodwin extends his SuperBasic file Browser to view graphics. 


his is the latest installment of 

the SuperBasic Browser, an 

easily extendable utility to 

simplify and speed up Qdos 
file operations. The program is based 
on the file requester developed last 
year, and add-on routines which 
appeared in the first part of this pro- 
ject, two issues ago. 

As usual | set out to develop a 
useful program, and illustrate power- 
ful and generally-applicabie algo- 
rithms on the way. You don't even 
need to type in all the parts to find 
these examples useful. Many of the 
routines in the Browser are likely to 


100 KEMarn SuperBAsST¢ 


come in handy in other SuperBasic 
programs. 

This month's listings come in 
three parts. The first is a new version 
of the code at the start of the file 
requester, adapted to have two entry- 
points, NEW_VIEW and SELECTOR. 
These are called from WINDOZE and 
LOOK_AT, presented in the last 
episode. 

The first group of lines, from 100 
to 700, may look daunting but it is not 
as complicated as it looks. 
NEW_VIEW opens the menu and 
scroll-bar windows, reads and dis- 
plays the directory. SELECTOR 


in Action FILE REQUESTER updates 


110 REMark By Simon N Goodwin for Sinclair QL World 
120 REMark Version 2.0, May/June 1994; Toolkit usage: 


130 REMark ALCHP, ANYOPEN%, CHAN_W%, 
135 REMark GetHEAD, 


CURSEN, CURDIS, EDITS, FPOS, FLEN, 
(NPUT$, MORE, MOVE_MEMORY, NEWCHAN%, RECHP, REPORT, 


140 REMark RENAME, SET_POSITION, SET_PRIORITY, SPL, SPL_USE, STRING%, 


450 REMark SUSPEND, TASK, TYPE_IN 


i606 REMark fwo TURBO compiler optimisation directives follow: 
1vO JIMPLICIT% current, i,j,k,n,d,type, row,pixelLine 


180 DATA_AREA 40 
190 : 


200 max_tiles$="480 *=MaxFiles" :REMark Generous for 720K disks 
210 name_Limit%=36 :REMark Standard maximum for Qdos directories 


220 sorting=l1 : picking=1l 


230 size_x%="0 *=XcSize" :REMark 0 or 2 in MODE 8/12; 0 to 2 in MODE 4 
240 size_y%="0 *=¥YcSize" :REMark Configurable to 0 or 1 (double height) 


250 dir_type%="255 *=DirFileType" : 


type_mask%=255 ; 


pick_mask%=256 


260 SPL_USE "seri" :REMark Target device for PRINT spooling (or PRT1) 


270. 3 

280 WINDOW #0,480,40,24,216 : 
290 WINDOW 476,216,24,0 : PAPER O : 
300 CLOSE : MODE 4 
310 WINDOZE 2 : STOP 
320 : 


330 REFERENCE path$,dir$(0,0),flag%(0) 


PAPER #0,0 
INK 7 ; 
: REMark or 8 or 12 if sizes permit 


BORDER 2,2 


340 DEFine PROCedure NEW_VIEW(status%,edge%,path$,top%,text_Linest,dir$,flag%} 
350 REMark SuperBasic in Action Requester modified for Qdos BROWSER 
360 REMark STATUS% = report window # (2 by 36 characters or more) 


370 REMark EDGE% 


X offset, TEXT_LINES% = eponymous window height 


$80 REMark MARK% = select default; PATH$ = drive/directory 
390 REMark TOP% = first pixel line; opens #MENU% & #SCROLL_BAR% 
400 LOCal margin’ :REMark LOCAL widtht,height%,border_colour’ etc. 


410 CSIZE #status%,size_xt,size y% 
420 char_x%=CHAN_W%( #status%, 38) 
430 char, y%=CHAN_W%(#status%,40) 
44a: 

450 menus=NEWCHANS 

460 border%="3 *=BorderWidth" 


: border_colour%="50 *=BorderColour" 


470 widtht=char_x% * (name_Limit%+1) + border% * 4 
480 height%=char_y% * text_Lines% + border% * 2 


490 margint=edge%—-border$*2 


500 OPEN #menus,"SCR_" S&width% &"x" G&height% &"a" & marginé &"x" Stop: 


516 : 
520 scroli_bar%=NEWCHANS 


530 OPEN #scrol]_bar%,"SCR_8x" &height% &"a" &(2+width%+marging )&"x"&topy 


540 PAPER #scroll_bar%,2 

550 widtht=widtht - border? * 4 
560 : 

570 mark%#=0 
580 GET_DIR 
590 here%=0 ; 
600 TIDY_MENU 
610 IF sorting : SHELL_SORT 
620 FILL_WINDOW here% 

630 END DEFine NEW _VIEW 

640 ; 


Linet=here% 


650 REFERENCE path$,dir$(0,0),flag#(0) 


660 DEFine PROCedure SELECTOR(status%,path$,text_Linest,dir$,flag%) 
670 REMark Parameters as above, but fewer; uses MENU% & SCROLL_BAR% 


680 CURSEN #statust 
690 CHOOSE 
700 END DEFine SELECTOR 
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allows file operations to be per- 
formed once a window is ready. 

Many of the lines are derived 
from REQUEST$, which appeared 
in QL World Vol. 2 issue 7 last 
year, and you have a head start if 
you have already typed that in. 
Some of the initialisation has been 
moved out of the function to the 
start of the program, the call to 
SHELL_SORT is now optional, and 
the lines have been renumbered. 

A few other changes are 
required in the File Requester rou- 
tines. Sorted lists are now optional, 
so calls to SHELL_SORT should be 
made conditional, dependent on 
the value of the ‘flag' variable 
SORTING: 


2740 IF sorting : SHELL_SORT 


PROCedure CHOOSE has 
been extended to recognise the left 
and right arrow keys, which swap 
control to the other file window, and 
to call ACTION or DO_COMMAND 
when files are selected: 


3100 ACTION com_code%, PRE- 
FIX$(path$), dir$(here%) 

3120 =27,200,192 : EXIT poll : 
REMark here%=0 removed 

3125 =REMAINDER : DO_COM- 
MAND 


| New Commands 


The second part implements 
another five Browser commands: 
EDIT, GRAPHICS, INFO, MOVE 
and PRINT. MOVE simply calls the 
subroutines for COPY and DELETE 
(coming soon) while INFO calls 
SHOW_INFO, from the last 
episode of SuperBasic in Action. 

PRINT uses the Toolkit 2 SPL 
command to copy the selected file 
to the default spool device, usually 
set with SPL_USE to “SER1", 
"PRT" or "PAR" depending on your 
printer. SPL opens the file and 
copies it ‘in the background’, leav- 
ing your system free for other 
tasks. If you lack Toolkit 2, and you 
don't mind waiting for printout to 
complete, you could use something 
like: 


*190 REMAark RDIT command subroutine 
v200 €URDIS ¢0 :REMark Aljiow task to grab keyboard input 
4210 EXEC "PLP1_HISOFT" :REMark For example Hisoft Devpac 2 


¥220 SUSPEND TASK 20 : 


TYPE_IN CHRS(10) & CHRS$(255} & "L" 


7730 SUSPEND TASK 26 :REMark Wait for filename input window 
7240 TYPE TN driveS & FileS & CHRS(10):REMark File to load 


y2hu CURSEN #2 
(260 RETucn 
vever 


7280 ReEMark GRAPHICS command subroutine 


7300 SAVE_ SCREEN 
7319 ch%=NEWCHANS 


7320 OPEN_IN #ch%,driveS & files 


¥330 MGRE_GRAPHICS 
7340 CLOSE #chs 
¥350 RESTORE_SCREEN 
7460 RETurn 

737 os 


7IRG REMark Show [hrOrmation about file 


7400) SHOW TNFO drives & files 


Val0) REPurn 
Fagus 

7490 REMark MOVE 
7500 GO SUR O00 
7510 CO TO 7100 
FoAt 


:REMark Copy 
:REMark Pelete original 


7590 KEMark PRINT to default SPL device 


7600 SPL drives & Files 
Tel = 


COPY DRIVE$ & FILES TO 
"SER1" 


The EDIT command is set 
up to call HiSoft's Devpac edi- 
tor, but the code is adaptable 
for other editing tasks. Devpac 
does not take a file parameter 
so Browser uses timed 
TYPE_IN commands to If you 
lack SUSPEND_TASK and 
TYPE_IN (from Turbo Toolkit) 
you can substitute the standard 
PAUSE command and use the 
DIY Toolkit QUEUE% function 
to simulate keyboard entry. 

EDIT starts by temporarily 
turning off the cursor in chan- 
nel #0, as we want the new 
task to grab input when it 
starts. Then it loaded the editor 
with an EXEC command, and 
waits a bit for it to start up and 
grab control of the keyboard. 

Like many Qdos editors, 
Devpac expects the user to 
specify its buffer size before 
editing can commence. 
TYPE_IN queues an Enter 
character, CHR$(10), to accept 
the default, then types ALT L 
(CHR$(255) & "L"), the key- 
press to load a new file. 

Another short delay is 
needed to give Devpac time to 
process these signals and 
swap input to the second win- 
dow, where file names are 
entered. The delay time of 20 
frames, about 400 millisec- 
onds, is plenty for this Gold 
Card QL but may need to be 
extended for a slow or busy 
machine. 


: RETurn 


Finally Line 7240 enters 
the drive and file name for load- 
ing. Devpac loads the file, and 
Browser can continue with its 
cursor re-enabled in the lower 
window. 

You can do much the 
same thing with other editors, 
like QED, EDT, SPY, 
Metacomco's ED, QD, Arced 
and The Editor. All you need to 
do is answer any start-up ques- 
tions, and replace the ALT L 
pattern with the key codes to 
select "LOAD" in your editor. 

If you own Toolkit 2 or 
some other extended version of 
the EXEC command, it is par- 
ticularly easy to call the Public 
Domain QED editor, because it 
accepts a file name as a task 
parameter: 


7210 EX "FLP1_QED_EXE"; 
drive$ & file 


This loads the editor and 
the chosen text file, with no 
need for subsequent SUS- 
PEND_TASK and TYPE_IN 
commands. 

The graphics file viewer 
works like DIY Toolkit's MORE 
command for text, is compati- 
ble with Minerva's two screens 
and can easily be extracted for 
use in other programs. It con- 
sists of two routines: 
MORE_GRAPHICS reads 
bytes from #CH% and displays 
in windows #0 and #1. 

GRAPHICS_LINE is used 
to read each line from the file. If 
the file has fess than one line 


left, it is filled with null characters, CHR$(0), to 
pad the line with black pixels. 

Line 9900 generates a diagonal striped 
pattern after the end of the file, using a different 
character-code in the cyclic binary sequence 1, 
2, 4, 8, 16, 32, 64, 128, for each line. These are 
more useful than nulls when you're looking at a 
file with blank lines at the end, and need to 
know where the real data stops. 


Graphical Browsing 


MORE_GRAPHICS lets you scroll back 
and forth through any file, seeing its contents 
as Qdos graphics. This is a quick way to estab- 
lish the internal structure of a file, as i'ts easy to 
see the difference between code, data, graph- 
ics and text and you get more information on 
each screen than is possible with numeric or 
textual displays. 

The routine shows the location reached in 
the file at the bottom of the screen, along with 
the file size in bytes, and you can move to any 
offset within the file by pressing Enter and typ- 
ing in a new offset for the display to start. 

You can scroll back and forth a page at a 
time by pressing Alt-up or Alt-down, just as with 
the MORE command. The strange characters 
in line 9520 are the DeskJet's interpretation of 
Qdos vertical arrow characters; | printed the 
listing on a JM QL, which lacks the TRA com- 
mand to translate such characters from Sinclair 
into HP codes. Line 9550 calls MINIM, a 
SuperBasic version of the MINIMUM function, 
to find the least of its two parameters. 

The down arrow key scrolls forward a line 
at a time, so you can smoothly scroll to any line 
of the image. This is important as many files 
have more pixel lines than can appear on 
screen at one time alongside the prompts, file 
name and position display. 

Line 9750 uses MOVE_MEMORY to move 
the previous display up by one pixel, making 
room for a new line at the bottom: TOP+LINES- 
1. Paging and scrolling goes much faster after 
the file has been read once, because Qdos 
Slave Blocks largely eliminate the need to re- 
read the disk. 

The height of each graphics page depends 
on the height of SuperBasic's window #1, read 
from the Qdos channel definition with the 
CHAN_W% function from DIY Toolkit Volume 
C. Alternatively you can emulate this function 
with calls to PEEK_W and CHBASE (Volume 
Q). Real hackers can probably get away with 
direct PEEKs, as long as they steer clear of 
QRam, QPac, and the Thor windowing system, 
which change the channel offsets. 

The graphics display uses the full width of 
the QL screen - 256 pixels in Modes, or 512 in 
Mode4 - as this ensures that screen images 
are correctly aligned, even if the left hand edge 
is invisible on a TV, as is usually the case. 

The QL was originally designed to run ata 
clock speed of 8 MHz, but this was cut to 7.5 
MHz at a late stage when Sinclair found that 
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the ZX-8301 display chip had trouble with the 
higher speed. The result was that each pixel 
was output for slightly longer than anticipat- 
ed, so a whole line was too wide for most TV 
screens. Monitors usually need less time to 
‘fly back' to the start of a new line, which is 
why they can display the full width, even at 
7.5 MHz. 

MORE_GRAPHICS reads and displays 
lines of 128 bytes with the INPUT$ toolkit 
function. It ignores the width of window #1, so 
normal screen images are correctly aligned 
from one line to the next. The default full- 
screen width is compatible with files saved by 
EyeQ, GraphiQL, Open World, Painter, QL 
Paint, QSpec, Quick Mandelbrot, Screen 
Snatcher and most other Qdos pixel graphics 
programs, as well as simple SBYTES com- 
mands. 

A few programs use a different width for 
pixel lines, so their images appear sheared 
diagonally across the screen. This affects 
vintage M-Paint files, which reserve a slice 
down one side of the screen for icons and 
patterns, and the FISHCOILS_WIDE image 
in the Public Domain Escher Graphics disk, 
which was converted from a US system, pre- 
serving its 640-pixel line-width. 

If you want to display these files correct- 
ly, or use a wider screen on a Qdos 
Emulator, you should change the value 128 
in the program to suit the number of bytes 
per line in your images, and pad or truncate 
input lines to fit your chosen window. 


Not Just Graphics 


MORE_GRAPHICS is useful even if the 
file does not contain graphics, because it's a 
quick way to determine the structure inside 
the file. Empty areas appear as black rectan- 
gles, such as the Channel and Vector Table 
spaces inside Turbo tasks, code appears as 
a random mush - like the initial QL screen 
when you turn it on, which consists of rom 
code - and data usually reveals its organisa- 
tion by the pattern it forms on screen. 

If you view a Quill document as graphics 
you'll see the Ascii text at the start, followed 
by columns of paragraph table data. At a 
glance you can see the proportion of extra 
information added to keep track of the text 
formatting. It is even possible to distinguish 
areas of CAPITALS, blank space, Jower case 
and digits by the pattern on the screen. 

Founts can be distinguished, although 
they are scrambled horizontally as each char- 
acter definition uses only nine bytes. Look for 
the script founts embedded in Psion Quill and 
Xchange, which appear as a band of heiro- 
glyphics in the file. 

Text appears as columnar stripes, 
because bit 7 is clear for seven bit Ascii char- 
acters, lower-case letters have bit 6 set, and 
so on. Groups of characters form distinctive 
patterns that are much easier to recognise 
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than they are to describe. 

Some program files, like 
Speculator_code and DJC's 
Quick Mandelbrot task, have 
graphic screens imbedded inside 
them, as soon becomes appar- 
ent when you view them with 
MORE_GRAPHICS. The Psion 
game Match Point contains a 
complete Mode4 screen back- 
drop at offset 37100 in the 
MATCH? file. 

It is unlikely that such 
images will start on a 128-byte 
line boundary, so you will proba- 
bly need to enter a new start off- 
set to get the image correctly 
lined up - otherwise it will appear 
sliced down the screen at the 
point where one line ends and 
the next one starts. 

Qdos graphics are 'word- 
aligned’ - in other words, it takes 


two bytes to describe each group 
of pixels - so the offset should 
generally be even, or mono 
graphics will be ‘ghosted', with 
red and green parts offset by 
eight pixels. To see this, set an 
odd offset, like one or three, 
while viewing a black and white 
graphics file in Mode4. It's a bit 
like viewing a 3D film without the 
coloured glasses. 


Loose Ends 


You now have the majority 
of the source code for the 
SuperBasic Browser, and a 
handful of procedures and func- 
tions which are useful in their 
own right. The project goes on to 
routines to copy, insert and 
delete files and directories. 


DEFine PROCedure MORE_GRAPHICS 

Local aPage,k,k$(10},lines,fjlel.en,row,target, top 
REMark Reads graphics from #ch% & sends prompts to #0 
REMark Display is full-screen width in #1 vertical area 
REMark AsSumes 126 byte lines in file & video memory 
REMark Uses current screen in Minerva F3/F4 64K mode 


top=CHAN_W3(#1,26) 
lines=CHAN_W3 (#1, 30) 
fileLen=FLEN( #ch$) 
INK #0,4 


:REMark First line of Window 
:REMark window pixel height 
: aPage=lines*128 ;REMark Bytes/Page 


PRINT #0;"Browser Graphics file viewer - use keys" 


TF aPage>=fileLen 


PRINT #0;"ENTER, SPACE or 


ELSE 


ESC to return to the menu" 


PRINT #0;",¥ to move, +ALT for pages, ESC to Fxit” 


END IF 
INK #0,7 


REPeat page_view 


FOR row=top TO top+lines-i 
k$=INKEY$( #0,-1) 


IF aPage>=fileLen : 
REPeat fine_view 
AT #0,2,0 
PRINT #0;FPOS(#ch%) ,” 
k=CODE( INKEY${#0,-1) ) 
SElect ON k 


=27 : EXIT page_view 

kKS=EDITS( #0,*POS(#ch%) ,10) 
IF “ee” INSTR k§ : 

NEXT fine_view 

TF k$<"0" OR kS$>fileLen & "" =: 

SET_POSITION #ch%,k$ =: 


=10 : AT #0,2,0 : 
CURSEN #0 : 
IF KS="" ¢ 


=209 ; 
IF target<O : 


=21?, 32.5 
=216 : 


: AT #0,2,0 :REMark Backdrop for prompt 
PRINT #0;MINIM(aPage,fileLen)," 


of "!fileLen! "in"! files; 


: GRAPHICS_LINE row 
: EXIT page_view 


NEXT fine_view 


NEXT fine_view 
EXIT fine_view 


target=FPOS(#cht )-lines*128*2 
target=0 : 
SET_POSITION #ch%,target ; 
REMark Page down, easy default case 
target=top*128+SCREEN_RAM 


REMark Page to top 
EXIT fine_view 


MOVE_MEMORY target+128 TO target, (lines-1)*128 


GRAPHICS_LINE top+]ines-1 
SUSPEND_TASK 10 : 


=REMAINDER : 
END SELect 
EXIT fine_view 
END REPeat fine_view 
END REPeat page_view 
END DEFine MORE_GRAPHICS 


: NEXT fine_view 
NEXT fine_view 


DEFine PROCedure GRAPHICS_LINF(pixelLine) 


ToCal ieft,target 
left=fileLen-FPOS( #ch%) 


target=SCREEN_RAM+128*pixelLine 


SELect ON left 


REMark If the file is exhausted, show a stripey pattern 

=0 : POKES target, FILILS(CHR$(2*{pixelLine && 7)),128) 

=1 TO 127 :REMark One incomplete line remains; pad it 
POKES target, INPUT$(#ch%,left) & FILLS(CHRS(0),128-left) 


=REMAINDER : 
FND SELect 
END DEFine GRAPHICS LINE 


POKES target, INPUTS{#ch%,128) 


:REMark 1 tine 


Since V4.07 of 
DEA (an intelli- 
gent disassem- 
bler) was re- 
viewed in QL 
World April 1992, 
the program has 
undergone 
changes to bring 
it up to its current 
impressive stan- 
dard. If you do 
not know what 
an intelligent dis- 
assembler does, 
please refer to 
the 1992 review 
for full details. 

Simply, DEA 
attempts to take 
a finished ma- 
chine codepro- 
gram and con- 
vert it back to the 
source code in 
which it was writ- 
ten (assembly 
language). This 
is akin to taking 
a washing 
machine and 
producing a blue 
print of it. 

The manual (currently 
54 pages laser-printed) 
has been significantly re- 
written and is now much 
easier to understand, and 
even has a tutorial for new 
users. It also has a 'begin- 
ner's corner’ to point you in 
the right direction. 


Tutorial 


The 9-page tutorial 
gives a step-by-step guide 
to loading the program and 
using it to disassemble the 
whole of the Turbo runtime 
toolkit (supplied). Users 
who know their keyboards 
should be in no doubt as to 
which key to press at each 
stage and will probably be 
amazed at how little effort 
can produce a full source 
code - in fact, DEA can 


Rich Mellor runs 
a highly effec- 
tive upgrade of 
the Intelligent 
Disassembler. 
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parse 99% of the whole file 
without the user having to 
touch a key! The tutorial 
then goes on to show how 
DEA can be used to 
extract one (or more) key- 
words from within the 
whole Turbo toolkit (or any 
other toolkit); how to go 
about disassembling the 
Gold Card rom; and how to 
extract a keyword from the 
QL's rom. | found this part 
of the manual extremely 
well written and can only 
hope that other software 
houses will pay as much 
attention to new users. 

Most improvements to 
the main program are in 
parsing the machine code 
file (to ascertain which 
areas of the file are 
machine code and which 
are data). DEA now recog- 
nises standard Qjump con- 
figuration blocks and Thing 
headers, as well as auto- 
matically recognising word 
and byte length strings, C- 
type strings, SuperBasic 
definition tables and gener- 
al assembler code. In order 
to reduce the likelihood 
that DEA will recognise a 
block of data as the wrong 
type, DEA 5.20 now has a 
‘trial parsing mode’. 


Parse Levels 


Normally, DEA works 
through a machine code 
file, disassembling from the 
start of the file (or a speci- 
fied start offset), and fol- 
lowing any machine code 
branches, returning to the 
main code as it goes 
along, allocating labels as 
necessary to any parts of 
the code referred to. 
Having done this (Level 1 
parsing), DEA then search- 
es the file for Qjump con- 
figuration blocks (Level 2 ) 
and, if found, will try to dis- 
assemble its structure 
(although this is still primi- 
tive in my current version). 
After Level 2 is Level 3, 
where DEA looks at all 
labels which have been 
allocated to the machine 
code file but not yet decod- 
ed, A label could point to a 


machine code routine, a 
block of data, some text or 
any other data-type sup- 
ported by Qdos. DEA uses 
a trial parsing mode, which 
enables it to follow the flow 
of data pointed to by the 
label and decide how it 
should be classified. 

Levels 4 and 5 are 
used by DEA to look for 
blocks of machine code 
which may not be referred 
to elsewhere, and for any 
strings embedded in the 
machine code. If any new 
labels are created while 
parsing under these 
Levels, control is returned 
to Level 3. Having exhaust- 
ed these avenues, DEA 
will look again at any 
Labels which have not yet 
been decoded and try to 
decide if these labels can 
be safely assumed to be 
byte data blocks (Level 6). 

As a final check, con- 
trol is then returned to 
Level 3 so that DEA can 
have another look at the 
remaining blocks of code. 

It is only when DEA 
has progressed through 
this sophisticated multi- 
level parsing’ that the user 
is called on to take any 
action. This is Level 7, and 
the user must look at the 
remaining blocks of code 
and decide how to classify 
them. You will not have 
much to do, as tests 
showed DEA decoding 
over 80% of all but the 
most complex programs by 
this stage. 


Better Level 7 


Level 7 parsing has 
been significantly improved 
- you are now presented 
with both the disassembly 
of the start of the unknown 
block of code and a 
hex/Ascii dump of the 
block. You can then either 
use the cursor keys to 
move through the assem- 
bly listing, or tab and the 
cursor keys to move over 
the dump. You can specify 
the start and end of data 
blocks by . feus Space, or 
simply use Space to identi- 


fy the start of some code. 
Once identified, you are 
presented with the data- 
type menu from which to 
select a code type for the 
highlighted block. DEA will 
always try to guess the 
most appropriate data-type 
to be used and automati- 
cally place the cursor bar 
there in the menu, so that, 
often, you need only press 
Space again to select the 
type. If you label a block of 
code as assembler, DEA 
will again use trial parsing 
to test the code, and, if no 
errors occur, resume pars- 
ing at Level 3 using that 
block as its starting point. 

DEA now requires 
even less user intervention 
when parsing than before, 
and yet appears to main- 
tain reliability. However, if 
you prefer a more ‘hands 
on' disassembler, DEA 
also offers this - you can 
select the degree of free- 
dom given to DEA in 
selecting code types, and 
even use functions from 
the main parsing menu to 
disassemble the whole 
code by hand (if you are a 
real masochist!). Having 
used DEA a few times, you 
will appreciate its high 
degree of automation, 
which allows it to work in 
the background while you 
do something different (the 
manual has details of how 
to ensure that DEA can 
produce the source code in 
the background even if the 
Pointer Environment is 
linked in, although unfortu- 
nately, it is still not possible 
to allow DEA to parse in 
the background, as DEA 
updates the name of the 
parsing Level). 


Source Code 


Having parsed the 
code, you go to the second 
stage, producing the 
source code. | understand 
that DEA (unlike some dis- 
assemblers) splits its func- 
tion into parsing and 
source code production to 
improve the final output. 

The source code can 
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be sent to screen, a printer 
or a file. You can specify 
whether any code which 
has not been disassem- 
bled should be listed (as 
Ascii/hex or just hex); if the 
output code should be 
compatible with the GST 
(or QMAC) macro-assem- 
bler; the character to prefix 
remarks in the source 
code, and many other 
options to alter the layout 
of the source code. 

A new sub-menu 
allows you to tell DEA what 
remarks to include in the 
source code - DEA will 
recognise most rom vector 
and trap calls and include 
an appropriate remark (the 
trial parsing helps DEA to 
decipher these calls), 
including the name of the 
routine called, either in 
Qdos or SMS notation. If 
you opt to view these calls 
in ‘long form', DEA 
includes a remark with 
details of the trap number 
and value of DO when the 
call is made. DEA will even 
now report calls to the 
Window Manager if asked. 


However, this can be a bit 
error-prone and is best 
used only if you know that 
the program being disas- 
sembled accesses the 
Pointer Environment. Other 
remarks can be included in 
the source file to detail 
accesses to System 
Variables and SuperBasic 
variables; the status regis- 
ter and even error keys. 


Kind Remarks 


The new remarking 
features improve the out- 
put quality from DEA sub- 
stantially and make it easi- 
er to read the assembly 
code. DEA seems to 
achieve a high level of 
accuracy with these 
remarks, although it seems 
more accurate when creat- 
ing the source code a sec- 
ond time (the manual sug- 
gests sending the output to 
a NUL file prior to creating 
the final source code). 

Also, when extracting 
part of a file, a jump to the 
next instruction in the 
source code is now spotted 


CLUB ACCESS 


AUSTRIA 

DER Computer Club. 
Contact: Peter Postl, Stiegerg 
5, 1150 Wien, Austria. 
BELGIUM 

Ciub Sinclair BruQsl. 
Contact: Jaques Tasset, 
Aarlenstraat 104, 1040 
Brussels, Belgium. 

QL Club. Leon Thianche, 
Rue Paul Wemaere 12-14, 
1150 Bruxelles, Belgium. 
FRANCE 

QL Contact France. Contact: 
Jean-Louis Dianoux, 22 
Avenue Lenine, 93230 
Romainville, France. 
GERMANY 

Sinclair QL User Club eV. 
Contact: Franz Herrmann, 
Talstrasse 21, d-W5460 
Ochenfels, West Germany. 
Magazine: Quasar, 

GREECE 

QL Athens Club. Contact: 
Stathis Grigoriadis, Tarsu 6-8, 
10440 Athens, Greece. 
HOLLAND 

Sin_QL_Ajr. Marco Holmer, J 


P Coenstraat, 3531 EN 
Utrecht, Netherlands. 
Magazine: Quasar. Editor: 
Same as Secretary. 
(Chairman: Cor Biemans, 
Elzenstraat 5, 5461 CL 
Vehgel, Netherlands. 

ITALY 

Qitaly Club. Roberto Orlandi, 
Via Brescia 26, 25039 
Traveglianto (BS), Italy. Tel. 
+39 30 6863311. Magazine: 
Qitaly Magazine. Editor: Dr 
Eros Forenzi, Via Valeriana 
44, 23010 Berbenno (SO), 
Italy. Tel. +39 342 590450. 
NORWAY 

Norwegian AllSinclair 
Association (NASA). 
Contact: P Monstad, NASA, 
N-5580 Oelen, Norway. 
Magazine: Sinclair Magazine. 
SCOTLAND 

Scottish QL Users Group. 
Alan Pemberton, 65 Linger 
wood Rd, Newtongrange, 
Midlothian EH22 4QQ. SPAIN 
Qliper. Editor: Salvador 
Merino, Ctra C_diz, 
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by DEA which inserts a 
NOP instruction (this pre- 
vents error messages in 
the Metacomco assem- 
bler), The quality of the 
source code is the best | 
have seen on a QL disas- 
sembler. Although DEA 
may take time over a 
whole file, it is much quick- 
er than disassembling by 
hand. It is more accurate 
than other disassemblers | 
have seen (and needs less 
user intervention), which 
helps to reduce the overall 
time and puts this program 
in a league of its own. 


DEA has problems 
deciphering self-modifying 
code (but then, so does the 
most hardened machine 
code programmer). | would 
have liked the ability to use 
Level 7 parsing to specify a 
block of machine code in 
the same way as a data 
block, as this would help 
the program decipher the 
most common type of self- 
modifying code more easily 


Cer_micas Mary, 29640 
Torreblanca del Sol, Spain. 
Magazine: Qliper. 


SWEDEN 
Svenska QL-Gruppen. 
Contact: Johan Boman, 


Toftaasgatan 73, 42147 
Vastra Frolunda, Sweden. 
Magazine: QL-Bladet. 
Jamten-TCL (International 
QL echomail conferences} 
BBS +46-63-133330. Michael 
Cronsten, Radhusgatan 61E, 
83137 Ostersund, Sweden. 
TURKEY 

QL Qlub. Contact: Bulent 
Artuz, Prof. Sitesi B/1 D/5, 
Etiler 80600, Istanbul, Turkey. 
UK 

Quanta (UK): Membership 
Secretary, Bill Newell, 213 
Manor Road, Benfleet, Essex 
$S7 4JD. Magazine: Quanta. 
Editor: Bill Fuggle, 20 Widnes 
Avenue, Selly Oak, 
Birmingham B29 6QE. 
Quanta. 

Ashstead sub-group: Derek 
Stewart, 13 Beales Road, 
Great Bookham, Surrey . 
Bristol sub-group: Roy 
Brereton, 94 Teignmouth 
Road, Clevedon, Avon. 

East Anglia: Geraint Jones, 1 


(where the program copies 
different sections of code 
onto itself). 

DEA has certainly 
come a long way, and pro- 
vides all the utilities any 
machine code programmer 
{or budding hacker) could 
ask for. This richness may 
be the one draw-back - the 
new user may be phased 
by the number of options 
on each menu! Although 
the tutorial in the manual 
helps, | would have pre- 
ferred to be able to switch 
between short-form menus 
with only the basic options, 
and full menus. From 
experience, Ergon are will- 
ing to listen to suggestions 
and implement them where 
they can. 


INFORMATION 

Program: DEA Plus 3 
V5.20. Needs min 384K. 

Supplier: Ergon 
Development, Davide 
Santachiara, Via Emilio De 
Marchi,2 42100 Reggio 
Emilia, Italy. 

Price: £28 (3.5in disk) 
payable to D. Santachiara. 


Bridgate Court, Thetford 
Essex sub-group: Dave 
Walker, 22 Kempton's Mead, 
Potters Bar, Herts EM6 3HZ. 
London sub-group: Jeremy 
Davis, 6 Elmcroft Crescent, 
Harrow, Middx. HA2 6HN. 
North-east: Derek Stewart, 
20 Emily Street, Gateshead. 
Northern Ireland: Billy 
Turkington, Fairyhill, 
Rostrevor, Newry, Co. Down. 
Mid-Southern sub-group: 
Geoff Fish, 44 Billing Avenue, 
Wokingham, Berks. 

QL User Group (West 
Midlands): Mike Bedford- 
White, 16 Westfield Road, 
Acocks Green, Birmingham, 
QL MUG (Merseyside): G 
Reynolds 051 932 1484, 
evenings. Meet fortnightly. 
Solent sub-group: Graham 
Evans, 32 Reeves Way, 


Lowford, Bursledon, 
Southampton. 0703 403350. 
South-West sub-group: 


Allan Hurford, 100 Topsham 
Rd., St Leonards, Exeter. 
USA 

NESQLUG and newsletter. 
Peter Hale, 195 Central Ave., 
Chelsea, MA 02150, USA 


New SJPD Catalogue 


Steve Johnson of SUPD has issued a new printed catalogue of PD software, and a sepa- 
rate list of second-user items including hardware - QL and other computers and QL software 
(including a small amount of mdv software, although most of Steve's stuff is on disk), books 
(including out-of-print ones) and magazines. He also occasionally has some new stuff as good 


prices, and will often take offers. 


The PC and Shareware catalogue now has 94 disks of software - The catalogue makes it 
clear what is on each - a number of texts of classic books on disk (so you can edit your own 
version of Don Quixote if you like!), several disks of non-English-language software, and some 
PC-compatible emulators. The catalogue is available on disk, free in return for a QL-formatted 
disk and sufficient return postage/IRCs (4 x first class stamps in UK). Or contact Steve at 36 


Eldwick St., Burnley, Lancs BB10 3DZ, England. Tel. 0282 451854. 


QL Press 


Quasar 36 (March) is out with Power Saving mit dem QL, QI Barograph, 
Forth (pages and pages of it), Toolkit 2 pokes, C-Programmierung and other 
things. All in German, from the Sinclair QL User Club eV from Peta Jager, Quasar 
Redaktion, Heisterbegallee 1, 30455 Hannover, Germany. 

QReview Vol 1 issue 3 has a considerable number of games reviews, and 
articles on QMaths 1, a simple Yes/No response function, DB Progs (a program 
from American author Bill Cable, available from Dilwyn Jones), Image Processor 2 
from DJC, and a shortie on Cueshell from Albin Hessler. £2.00 from Bruce 
Nicholls (Quo Vadis Design), 57 Shaftesbury Road, Romford, Essex RM1 


BILL'S OFFICE 


Don't forget WN Richardson's 
new address: 


6 Ravensmead 
Chalfont-St-Peter 
Buckinghamshire SL9 ONB 
Tel. 0494 871319 


2QJ. 


IQLR March-April 1994 has articles on the Editor SE (part 3), Qindex, 
exchanging QL Abacus with MS-DOS Lotus, voter ay | Printer: Dat (from Dilwyn 
Jones), Going OnLine with your QL (very informative to 
USA BBS, among other ane 


and news and ads. from al 


Instant Access - The File Compressed! 


HARDWARE 
CL Systems 081 459 1351 
Real Time Digitizer 
Computer Technik 
(Jurgen Falkenburg) 010 
49 7231 81058 (Germany) 
Hard disk interface and 
systems, tower housings. 
Dilwyn Jones Computing 
(DJC) 0248 354023 
Process controller, power 
regulator, network prover. 
Miracle Systems 0904 
423986. Gold Card; QXL 
PC card; disk adapter; 
Centron-ics adapter/lead. 
Qubbesoft PD 0376 
347852 
Miracle Trump Card, 
Expanderam, 3.5in disk 
drives. Sales and support. 
W N Richardson (EEC) 
0494 871319. QL systems, 
monitors, keyboards and 
interfaces, disk drives and 
printers, peripherals. 
TF Services 0344 890986 


is, Mainl 


Hermes IPC, Minerva rom, 
keyboard membrane, 
repairs, spares. 


SERVICES 
Adman Services (Dennis 
Briggs) 0952 255895 
Spares, repairs, support. 
Joe Atkinson 36 
Ranelagh Rd., London W5 
5RJ. Roms, mdvs, spares. 
Quanta: General Secretary 
John Mason 0425 275894 
User Group, support, 
library. 

Quo Vadis 0708 755759 
QReview. 


SOFTWARE 
COWO Electronic 010 41 
45 211478 (Switzerland) 
QTop, Atari QL emulator, 
Thor support 
Deltasoft 7 Tyrell Way, 
Stoke Gifford, Bristol. 
Flightdeck, Image D, AMD 
Airplan 


r beginners), and QBox 
American contributors, but wide-ranging 
over. USA: Bob Dyl, IQLR, 15 Kilburn Court, 
Newport Ri 02840, USA. Tel. 0101 401 849 3805 (from UK). UK contact: 
Geraint Jones, IQLR, 23 Ben Culey Driver, Thetford, Norfolk IP24 1QJ, UK. 


Digital Precision 081 

527 5493. Perfection, PC 
Conqueror, Lightning, Pro 
Publisher and others. 
DJW Software 0256 
881701 Homebanker 
Dilwyn Jones Computing 
(DJC) 0248 354023 
Discover, Textidy, QL-PC 
Fileserver, Fleet Tactical 
Command, QLib, File- 
master, DataDesign, 
QPAC2 and other Pointer 
Environment programs. 
Di-Ren 081 291 3751 
Fleet Tactical Command 
(Dist. by Dilwyn Jones) 
Ergon Developments 
(Davide Santachiara) 010 
39 522 70409 (Italy) ZX 
Spectrum emulator, Open 
World, others. 
Jochen Merz Software 
010 49 203501274 
(Germany) QL/Atari emula- 
tors, QSpread, File Finder, 
Qptr Toolkit and other PE, 
QDesign 2, Qdos refer- 
ence manual. German ver- 


Fax 0753 892235 


The old phone number will contin- 
ue in use for the time being, but will 
only be manned by the answering 
machine. 


sions of Qpac 1&2, Qmon 
and text 87. 

Lear Data Systems 

6 Southview Green, 
Bentley, lpswich, SUffolk 
IP9 2DR. PCB-CAD 
Liberation Software 081 
546 7795 QLib Basic com- 
piler (Dist. Dilwyn Jones.) 
Ocean Comp. Services 
061 740 9002 Professional 
Poolster. 

Pointer Products 0258 
455117 PE programs 
Progs (Van Auwera) 010 
32 16 48 8952 (Belgium) 
LineDesign, DataDesign, 
others. (Dist. by Dilwyn 
Jones; LineDesign dist. by 
Software87) 

Qubbesoft PD 0376 
347852 QL Home Finance, 
PDomain software. 

SJPD Software 0282 
51854 PDomain software 
Software 87 33 Savernake 
Road, London NW3 2JU. 
Text87 Plus4, Publishers’ 
Pack. 
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tote 


Len Johnson bought a replacement keyboard and is 


hen Dennis 
Briggs adver- 
tised a new 
remote key- 
board as a kit in Quanta for 
only £20 | jumped at the 
chance. As it was previ- 
ously advertised at nearly 
£50 complete, | thought the 


very happy with 


When the keyboard 
arrived | was surprised 
how simple the whole thing 
was. Just a few soldered 
connections and a few 
bolts and nuts and that 
was it. And thirty quid 
cheaper than the fully 
assembled version! 


Not too many components to handle! 


saving would be well worth 
a few hours spent assem- 
bling the thing. 

| was heartily sick of 
the difficult typing position 
my existing keyboard 
forced on me and besides, 
the space key was begin- 
ning to act up. | had my 
cheque in the post that 
night! 


Gold Card Too 


Dennis suggested in 
the instructions that the QL 
motherboard and Gold 
Card might fit into the new 
keyboard case easily 
enough and suggested fit- 
ting a small fan to keep it 
all cool in this case. The 


The long strip of aluminium heatsink under the new case. 
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idea seemed quite feasible 
when | measured every- 
thing, and it would be one 
box less on my desk. | 
decided to have a gol! In 
the event it proved as sim- 
ple in practice as it was in 
theory and no electronic 
knowledge was needed. It 
soon became clear to me 
that the need for a fan 
could be worked around, 
and in fact my QL runs 
cooler now without the fan 
than it did in the original 
casing. The only snag _ is 
that in this configuration 
the microdrives have to be 
irrevocably removed. But 
who uses the things these 
days? The QL has come a 
long way in ten years! 

First set the keyboard 
parts out in a tidy manner 
and identify the half dozen 
or sO components (Pic A). 
Next read the instructions! 
Carefully! Note particularly 
that one connector strip is 
reversed! A quick glance at 
the picture in the instruc- 
tions and the QL keyboard 
connectors on the mother- 
board will show what | 
mean, Don't worry, if you 
get it wrong nothing really 
bad will happen. You will 
lose a few keys when you 
try the keyboard and when 
the fault is put right every- 
thing will work as normal. 

The curly lead sup- 
plied can be used, but 
when the case is closed | 
found things a little tight 
With hindsight | would use 
a foot or so of flat disk 
drive type connector wire 
from Tandy's. This would 
fold more easily when the 
lid is screwed down. 


Heat Sink 


You will need to buy a 
piece of 50x3 mm (2in by 
one eighth) aluminium or 
stainless steel strip the 
length of the QL to act as a 
heatsink (Pic B). Most alu- 
minium fabricators or sign 
makers will simply give you 
a piece if you ask nicely. 

Once the keyboard 
wiring has been done 
according to the instruc- 
tions, an hour or so with a 
small soldering iron, the 
QL can be dismantled. 

Remove all the screws 
from underneath the black 
beast and the top keyboard 
will lift of. Carefully ease 
the keyboard connector 
strips from the mother- 
board and set the key- 
board to one side for now. 
At this point carefully note 
how the connectors carry- 
ing the keyboard connect- 
ing strips are fitted in the 
sockets on the mother- 
board. The six wires going 
to the leds (the little warn- 
ing lights on the keyboard) 
for power and microdrives 
can now be eased up from 
the socket. The top of the 
socket slides upwards a 
fraction to release the 
wires from the connector, It 
is best to use a pair of 
tweezers for this as there 
are a couple of blue capac- 
itors close to the connector 
block and you won't get 
your fingers close enough. 
Alternatively, simply cut the 
wires as close as possible 
to the block with a pair of 
nail clippers and put a 
piece of tape over the raw 
ends to prevent a short cir- 
cuit. If you do cut them 
make sure nothing can 
touch the bare wire ends, 
and that they are too short 
to bend and touch each 
other when the lid goes on! 

Remove two of the 
leds complete with a length 
of wire from the QL's key- 
board and put them to one 
side. You will need one for 
the new keyboard as a 
power-on light. Use the 
other if you have fitted the 
Caps Lock indicator and 


indicator LED if the 
Quanta capsiock Is fitted. 


Quanta software. | have 
this Caps Indicator fitted 
(Pic C) and it only took a 
few minutes to do. The 


Compare the size of the- 
cut-down heatsink with 
the Gold Card heatsink . 


only problem is that it 
involves soldering a few 
wires directly to one of the 
chips and you must know 
what you are doing. 
Nevertheless, it is well 
worth doing if you type like 
me! No more screaming 
when | look up and find the 


last paragraph all in capi- 
tals. Quanta will supply the 
simple circuit if you decide 
to fit it. 


Exeunt MDVs! 


Now remove. the 
screws holding the micro- 
drives in place and lift the 
motor assemblies out of 
the case. The two black 
wiring strips connecting 
them to the motherboard 
ease out of the plug-in con- 
nectors at the motherboard 
end and the microdrives 
can then be lifted clear and 
dumped. (I enjoyed that 
bit!) Note the connector on 
the motherboard does not 
raise to release the wires 
like the led connector; on 
this one the wires simply 
ease out under finger pres- 
sure. Next remove the bolt 
holding the black finned 
heatsink at the right hand 
side of the QL and push 
the three pronged 5-volt 
object the bolt was holding 
out of the way for the time 
being. Cut the heatsink in 
two as shown, leaving the 
bolt hole intact in one of 
the pieces. Remove the 
heatsink from the Gold 
Card and fit the larger 
piece of the black QL one 
in its place with a piece of 
double sided tape, but do 
not put the bolts in yet. 
(The bolt going through the 
heatsink will go right 
through the keyboard case 
and hold the Gold Card in 
position when the mother- 


Gold Card in place beside the heatsink and disk cable 
slots. The GC is secured by boits through the ends of 
the main connector. 


Drill a hole in the Reset button and extend with spoke 


wire or similar - the new end is a grommet. 


board is finally fitted in the 
new keyboard case.) The 
reason for fitting the larger 
heatsink (Pic D) is to let it 
project from the side of the 
keyboard half an inch or 
so. The original Gold Card 
heatsink is too short for 
this. Maybe this is overkill 
but my setup really does 
run comparatively cool 
now. The Trump card is 
longer than the Gold Card 
and will probably project 
enough to cool itself with- 
out any modification but | 
have not actually tried this. 

Mark the positions of 
the holes in the case need- 
ed for the monitor, power 
plugs and the leds. Set the 
Gold Card or Trump Card 
up against the case on the 
left hand side and runa 
pencil round the heatsink 
and disk drive plugs (Pic 
H). | cut the holes through 
the case by drilling a series 
of one eighth holes and 
then joining them up with a 
piece of junior hacksaw 
blade. A piece of sandpa- 
per rolled up into a tube 
puts a nice finish on the 
holes. Try to make a neat 


job of the hole for the 
power led light as this can 
be seen from the top of the 
keyboard. When the holes 
are cut, slide the mother- 
board and Gold Card into 
position so that the various 
plugs line up with the holes 
in the case. 

Now you can mark the 
position of the last hole 
needed in the case. The 
original heatsink had a 
voltage control device boit- 
ed to it. The wires connect- 
ing this device need to be 
lengthened by about 4in. 
The transistor. simply. 
unplugs at one end, but the 
other end needs to be cut. 
Please make sure all new 
wiring is well insulated and 
nothing can short out. 
Lastly, the device needs a 
hole through the case to 
bolt it to the length of alu- 
minium heat sink you 
bought. 


Reset Extension 


One more hole is 
needed. The original reset 
switch needs to be brought 
out through the case. You 
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The QL motherboard sockets - holes cut, and the 


sockets secured with screws from outside. 


could unsolder it and fit it 
or a replacement in the 
new case but there is an 
easier way - drill the reset 
switch with a one sixteenth 
hole in the end to take a 
cycle spoke or a length of 
stiff wire. | used a knitting 
needle Supaglued into the 
end of the switch to length- 
en it. A small grommet 
Supaglued on the end of 
the knitting needle forms a 
neat finish and works well 
(Pics J and K). 

When the hole is cut 
for the heatsink fix the alu- 
minium strip under the key- 
board with double-sided 
carpet tape and bolt the 


motherboard and Gold 
Card into the case with 
bolts through the various 
existing holes (Pic M). | 
used plastic dress snaps 
as insulating washers for 
this job! 

It's a good idea to 
strengthen the sockets on 
the motherboard against 
the thrust of the various 
connectors as they are 
inserted. | used a few long 
self-tapper screws through 
the keyboard case and 
through the top of the 
sockets on the mother- 
board (Pic M). These 
screws steady things up 
nicely. Don't omit them. 


Make sure its connect- 
ing wires are taped to the 
edge of the case, and pop 
the red led you removed 
from the old keyboard into 
the hole in the top right 
hand corner of the new 
keyboard and secure with 
a dab of glue and that's 
about it! Put the wires back 
into the connector on the 
motherboard, You did note 
the way they were fitted 
originally didn't you? 


Close the top of the 
case with a couple of 
screws and switch on. 
When you try the keys you 
might find some are not 
working. The cause will be 
the connector strips. You 
will probably need to repo- 
sition one or the other 
slightly to the left or right to 
line the fiberglass connec- 
tor strips with the strips in 
the connector block. 

And that's it! 


The QL should have looked like this 10 years ago!! 


TF SERVICES 


MINERVA 


HERMES 


Reosgeaae (EEC) ~=WN. Aichardson & Co. 
'SINCLAIR OL PRICE LIST Sete aan su ue 
| DEC ‘93 All Prices Include 17.5% VAT 


The ULTIMATE system upgrade 


A replacement QL co-processor for the 
Ls awful IPC 8049 y, 


Do you get keyboard bounce? 


ASK FOR DETAILS OF ECONOMY RANGE OF F.D.D. UP 
TO 4mB ANDHDD UP TO 44MR | 


| MINERVA HVC (MIKI) 1 bauery for 256 bytes ram, 
CRASHPROOF chock & 14 bus for merfacuny. Can 


| autoboot from bauery backed ram = Quick start up. Re = oe forsee notions ar 2006p ail IS COMPLETE QL Comte, PSU, TAY, Lend, PSION V245 suftware (Word Prosann, Spromdahoct, JS$ £120 
wane — DO rer Ra 7 — you w: » cons aamodcn , ni ap iabass & Brsoess Graphics) HaaThook for OL, Programs. & Superba 
OTHER FEATURES COMMUN TO ALL VERSIONS and scod and reccive FAXES and/or data (A Few LEFT) Free ome years memh ep to OU ANTA, the inde: escent OL User Group wath over 400: ‘i 
8 y N & HELP. 6 f WITH JM KOM £100.00 
DEBUGGED operatmy system autoboot of rexet or if you can say onc YES , then you need HERMES = Sienry DNA, — 
power farlurcf Multiple Basic faster scheduler- PART EXCHANGE £4 CVE Send in old QL Uigr oly, any padibuc, JRC aD Jet Oe 
graphics (within 10% of |ightung).string handling) 19200b;e REI-IABLE serial input - NO OCONNI'T HaebePOLS = GL & PSU only IS Gb0 Ize, (Pam exchange allowance £15 uf required) 


WHEN ERROR/2ad 
keyboard drivers “warm” fast reese. V197 wath split 
OUTPOT bad raten (+ Hermes) dc built iin Multubanee 


serene TRACK non-Raglixh Indepcadent input baud rater - use scrsal mouse & priae 
- Stops keyboard bounce (unwanted repeat hrs) 
Improves “fuzzy” and “random sound 
Provides cxtra inpulfoutput Hiacs 


Key click 


NOTE: EXTERNAL 'SP2) 3 BUTTON MOUSE AND SOPPWARE “k 
WITH EXTRA FUNCTIONS, JOM HESSIES COMPA TELL 


RC KEYBOARD INTERFACE, for INTERNAL FITTING, wath lead 102 KEY KEYBOARD 
KEYBOARD, UK vermon, 100 key (AT) ri £25.00 £ eT 
PC KEYBOARD INTERPACH and KEYBOARD — REDUCED PRICES Pert rae 69600 amr 
CASE and LEAD for EXTERNAL FITTING of Keyboard interlace for simpler assembly : 
JOYSTICK wibOL Jead (ao antesfuce required) 
* QL MOUSE, 7 Butioa, Software contalled, externally snourted, simply fite 


da upgrade free. Onbstwine send £3 (£5 for manual 
U requd) . Send SAB, Mmerva + disk/3 mdvs_ 


MK]... £40 RTC (MKII)... £65 
GOLD CARD (inc! SUPER) compatible 


QL SPARES 


Faulty QL board ( no plug: chips)...........£9 


‘To fit, sumply replace the QL 8049 of 8249 chip 
£25 including manual/software 


I?C Interfaces 


The PC bus was designed by Philips to simplify 
interfacing. Minerva MKII clock is driven by an -C 
chip, & a connector allows councction of other circuits 


Keyboard membrane ,.£9 Circuit diagrams .........42 ff Qur external circuits will intercoouect without leads 

ROOK CPM ocd STF PAL... £3 | Upto 5 interfaces can be powered off the Ol. ECONOMY DRIVE PRICES INCLUDING VAT @ 172% 

hls BEN PAWEL RUBOUY unset RI ihn ][2 nie) [ Buplex) [Duplexes | 

AM ULAL IO BIOL LA... £10 § Paralicl Interface gives 16 mputfoutput lines. Can be CAPACITY Bae ipso pis ieatrsere |{ aoaeraty_| 

aO49 LPC a} MBDY ULA . £12 used for logic level output eg model tram controllers. SINGLE DRIVE £69 £85 £120 . [ ee |e 
lapat direct to motor deers (ex C29 41-298)... £25 1 é “ 3 —~ _ eS 

Other componenini(nockets cto) please phone | TWIN DRIVES [ £99 }[ ©7150 |[ e199 |[ e135 |f e175 
Analogue Interface Each yives 6 analogue to digital 
QL REPAIRS pet ahd 2 ‘dighalfanatopic carpe. os. tema TELEPHONE RE: UPDATING EXISTING DRIVES, ALSO DETAILS OF HARD DISk DRIVES. 
ieee measurement, sound sampling cic £30 la 


‘Monitors ] PHILIPS 14" HIGH RES COLOUR EGA 31 DOT PITCH, FULL 85 COL 
ioe WITH AMBER OR GREEN TEXT FEATURE, IDEAL FOR WORD 
*& PROCESSING, RECONDITIONED, 90 DAY WARRANTY. 
OK FOR PC AND QL SELF SENSING AND MANY EXT/L CONTROLS. 


| Microdrive Cartridges and Spares » MONO OPTION* WITH 
2" GREEN SCREEN 


Data sheots. (analogucjparaliel PC chips) £2 


Control software/masual (Superbasic catns). £2 
fPirst interface purchase includes free 15D/9D Iead) 


COMPUTER CLEANER 


High Spec AC mains filters and spike removers 


Fiacd price for unmodified OLa, cxcl microdrives, QLs 
teaitd with Thom-EMI rig aad ROM software 


If 


£27 including 6 month puarantee 


QBBS -Uks fint QL scrolling Bulletin Board 


All in wiandard 3-pin devices and are plug-in 4 New Carmidges ia a wallet £ 10.00 8 peog cans for reformatiang im 2 wallets E 1S.00 

NO WIRING REQUIRED. In their 10uh year ot Plastic Storage Bling box including 20 new cartndges £45.00 

Megabytes of filcs. Messages to/from UK/Belgineay OL Puon Software V2.5 Inchudes Quill, Abacus, Archive, and Easel IN WALLET ox 

Holland/USA/Germany fora UK phone call. Production - ax old as the Sinclair Ql. QL Pion Software progracha £ 1000 

TANDATA callers add SIX zeros (Q00000) or wait 2 gi 4 rar SL reover Supply Uta : 1000 QL Prmer YF £27 Membrane (abd anstructions) Wide 

for 3 seconds of modem tone if diallmg manually. -Way adaptor. £14 “Way adaptor..£1 fot Network kads “QL Top & Botiam Cazes E foe 

- sie ics ZX8301 £900 ZKEMR og 3 8049 © 3.00 MC 1377 e300 

0344-890987 (up to V32bis) 4-way trailing socket... £24 sai ‘ 

—— — suswceManuaLacmeuts asm SA JE, FOR FURTHER DETAILS 

Prices include post & packing (UK only). Payment by Mastercard/V isa/Access/Eurocard/chcquc/ postal order/PO q 7 : ~ 
Guo transfer (58 267 3909). MALL ORDER ONLY - no callers without ringing first. Ring for overscas prices, Visa rig cg an pee reanilal es KN 
Cheques ~ allow 10 drys Pasaige - £5 


= 
MOBILE: 0850 597650 
FAX: 0753 887149 


Product subject to availabiliry, 


Holly Corner, Priory Road, ASCOT, Berks, SL5 BRL S) TEL: 0753 838366 


Tel: 0344-890986 Fax & BBS: 0344-890987 
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Siork 
Calecu 


Neil Gordon simply checks out body-rhythms. 


hile not entire- 
ly certain of 
the practical 
effects of the 
theory of 'Biorhythms’, | 
wrote the accompanying 
program as a simple bio- 
rhythm calculator to try it 
out. Perhaps a_ short 
description of biorhythms is 
in order for those who have 


missed out on these 
"guides to the body's natur- 
al cycle". 

Biorhythms are a 
name given to the appar- 
ent cycles that certain 
aspects of our bodies fol- 
low. It has been found that 
most people's bodies fol- 
low certain rhythms, 
approximating to sine 


waves of various periodici- 
ty. These rhythms start the 
moment we are born, and 
continue regularly from 
then on. 


Good days 


Biorhythms are taken 
seriously by many people, 
and it is said that they are 


Haren 
ror 


widely used, by everyone 
from football coaches 
checking on likely player 
performance, to airlines 
wanting to check on pilot- 
safety {in particular watch- 
ing out for zero days - see 
below). 

Aspects of our body- 
rhythms are divided into 
three types for this study: 


3408 CLOSE #3:CLOSE #4 

36¢ CLS #2:CLS #1:CLS #@:NEW 
369 END IF 

376 IF ch$=="r" THEN EXIT cloop 
386 END REPeat cloop 

398 CLS #4 

49% END REPeat mloop 

419 DEFine PROCedure init_sereen 
420 MODE 4 

430 OPEN #3,scr_512x256a0x@ 

449 PAPER #3,8:CLS #3 

450 INK #3,7:CSIZE #3,2,1 

466 AT #3,6,16:PRINT #3,"BIORHYTHMS" 
479 WINDOW #3,482,122,15,16 

486 PAPER #3,2:CLS #3 

498 INK #3,7:BORDER #3,1,4 

596 OPEN #4,con_482x114a15x142 
510 PAPER #4,4:INK 4,6 

520 CLS #4:BORDER #4,1,7 

536 SCALE #3,134,-45,-72 

54% END DEFine 

556 DEFine PROCedure init data 
568 DIM pos(3),prompt$(6,25),length(3),days(12),dd(6) 
578 RESTORE 6194 

588 FOR i=1 TO 6:READ prompt$(i) 


KivMark ‘Neil Gordon* 

i RéMark "DEFAULT DATE DATA* 
REMark *CHANGE TO OWN DATES” 
DATA 1968,12,20,1987,1,1 
Init_screen 
Init_data 
update 
REPeat mloop 
Z=p 
input data 
update 
totalise 
set axes 
FOR sfor=1 TO 3 

pos(sfor)=total MOD length(sfor) 
INK #3,(sfor—1)"3+1 

draw_graph pos(sfor),length(sfor) 
END FOR sfor 

analyse 

AT #4,8,28:CLS #4:3 

PRINT #4;"RUN AGAIN(R) OR QUIT(Q)" 
REPeat cloop 

ch$=INKEY$(-1)} 

iF ch$=="q" THEN 
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114@ SELect ON i 
599 FOR i=1 TO 3:READ length(i) 1150 =i 
600 FOR i=l TO 12:READ days(i) 1166 dd(1)=1$ 
619 DATA "Year of birth? (ie.","Month of birth? (ie." 117@ =2 


620 DATA “Day of birth? (ie.",“Present year? (ie.” 1188 IF 1$>12 THEN GO TO 19380 
639 DATA “Present month? (ie.","Present day? (ie." 119¢ dd(2)=1$ 
649 DATA 28,23,33,31,28,31,30,31,30,31,31,39,51,30,31 1260 =3 
65@ RESTORE 13¢ 1218 IF 1$>days(dd(2)) THEN GO TO 1@8¢ 
660 FOR i=l TO 6:READ dd(i) 1226 dd(3)=1$ 
670 END DEFine 1238 =4 
680 DEFine PROCedure Lotalise 1246 IF 1$<dd(1) THEN GO TO 1689 
698 LOCal age,nly,ted 1256 _ dd(4j=i$ 
7@o IF ddii)>dd(2) OR (dd(S)=dd(z) AND dd(6)>=dd(3)) THEN oe BREN UE nidisioune) ARw mene Grate ax Beas 
71  age=dd(4)-dd(1) LAGI dd(5)=1$ 
720 ELSE age=dd(4}-dd(1)-1 12495 =6 
730 END IF lube {fF dd(4) MOD 4=@ AND dd(S)=2 AND 1$=29 THEN GO TO lage 
; ‘ : eae! 
740 nly=(ddi4) DIV 4)-(dd(1) DIV 4) 1320 re MCCUE AUD Seats AD 1$<dd(3) THEN GO TO Ibu 
756 IF (dd(4) MOD 4)=@ AND dd(5)<3 THEN nly=nly-1 133¢ dd(6)=1$ 
766 IF (dd(1) MOD 4)=@ AND dd(2)<3 THEN niy=nly+1 1349 END SELect 
779 IF da(2)=dd{S5) AND dd(6)=dd(3) THEN 1350 END FOR | 


‘ 1368 CLS #4 
780 ted=0 137@ END DEFine 


799 ELSE 1389 DEFine PuNetion numberixd) 
800 IF dd(5)=dd(2) AND dd(6)>dd(3) THEN 1399 FOR scan=1 TO LEN(x$) 
810 ted=dd(6)-dd(3) 1490 IF x8(scan) INSTR "@123466789"=S THEN RKETurn @ 
x HA ce eat t41@ END POR scan 
829 ELSE {428 RETurn 1 
B30 ted=(days(dd(2})-dd(3))+dd(6) 1439 END DEFine 
84¢ m=dd(2) 1440 DEFine PROCedure set_axes 
EPeat 1 145% CLS #3 
| ae gaan 1468 CSIZE #3,0,0 
7 1470 LINE #3,8,-60 TO 9,50 
870 IF m>12 THEN m=) 1480 LINE #3,0,0 TO 298.6 
886 IF dd(5)=m THEN EXIT | i499 LINE #3,298,-56 TO 298,59 
898 ted=ted+days(m) 1600 AT #3,2,2:PRINT #3,"+VE" 
900 END REPeat 1 1518 AT #3,8,2:PRINT #3,"-VE" 
919 END IF 1626 AT #3,5,2:PRINT #3;"2FRO"\' LINE’ 
5 : 1538 AT #3,11,6:PRINT #3;"(TODAY)" 
928 END IF 1546 FOR i= TO 11 
930 total=(age*365)+ted+nly 1568 = AT #3,10,(1"5.4+9) 
948 END DEFine 1560 PRINT #3,1°3 
950 DEFine PROCedure draw_graph(position,length) USae: / END OR. 
960 x=@:0x=¢ 1588 AT #3,11,2¢ 


is 1596 PRINT #3;"Number of dz t ent day" 
978 oy=50*SIN(2*PI/length' position) mM hake ee 


980 FOR p=position TO position+33 STEP .5 1618 LINE #3,369,43 TO 337,43 
996 y=60'SIN(2"PI/length'p) 1626 AT #3,2,70:PRINT #3,“EMOTIONAL" 

# ; 1630 INK #3,4 
ee Lane ORY coe 1648 LINE #3,309,18 TO 337,18 
19140 OX=KOYEYiK=X . 1650 AT #3,5,78:PRINT #3;"PHYSICAL” 
1929 END FOR p 1660 INK #3,7 
1638 END DEFine 1676 LINE #3,369,-25 TO 337,-25 
1048 DEFine PROCedure input_data Ep eh i bald #3," MENTAL" 

7" - 6 ne 

165 AT #4,9,6:CLS aaa it 1760 DEFine PROCedure analyse 
1666 PRINT #4;"{Press ENTEK for default/previous vaiue.) 1718 AT #4,3,6 
19706 FOR i=1 TO 6 172@ PRINT #4,"CYCLE NO, OF DAYS STATE OF COMMENT (FORK TODAY) 
1988 AT #4,1,0:CLS #4,3 1738 PRINT #4," THRO' CYCLE CYCLE" 
199¢ PRINT #4;prompt$(i);dd(i);") "; 1746) PRINT #4,"EMOTIONAL"\"PHYSICAL"\"MENTAL" 


‘ 17566 FOR i=l TO 3 
1169 or , uh ee 1766 = AT #4;1+4,14-LEN(pos(1)) 
1118 IF 1$= THEN 1$=dd{i) 1776 =PRINT #4;pos(i);"/";length(i) 
1126 IF number(l$)=@ THEN GO TO 1639 17800 AT «#4.1+4.22 


1138 IF 1$<1 THEN GO TO 1686 
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1798 state 

18068 END FOR 1 

1616 IF Z@ THEN 

lb2y AT #4,1.2 

18000 PRINT #4;""""WARNING*** *: 


2429 END IP 

2450 [F lengtuh(i)<23 THEN 

2440 PRINT w4,"You may be tired and have slow reaclions Luoday." 
2456 END IF 

2468 IF length(i)=28 THEN 

2470 PRINT #4,"You may feel depressed or more ‘serious’ doday,” 
2486 END IF 

249% END DEFine 

2500 DEFine PROCedure up 

2ol@ PRINT #4," UP et 

2520 IF length(ij=35 THEN 

2630 PRINT #4;"You should feei bright and alert today," 

2548 END IF 

2558 IF length(ij=23 THEN 

2568 PRINT #4;"You should feel strong and energethe today.” 
257@ END IF 

2589 IF length(i)=28 THEN 

2598 PRINT #4,"You should feel cheerful and peppy today 

2600 END IF 

26198 END DEFine 


‘840 SELecl ON 2 

165B *RINT #4,;"ZERG DAY BE EXTRA CAREFUL ACCIDENTS ARE LIKSLY*; 
La6p =2:PRINT #4,"DOUBLE ZERO DAY, BE VERY CAREPUL AND STAY AUER?” 
LaTp =3:PRINT #4;"TRIPLE ZERO DAY,UNUSUAL SO BE EXTREMELY CAREFUL."; 
i680 END SELect 

(698 PRINT #4;" ""*WARNING***” 

i998 END IF 

1918 AT #4,8,10 

(y20 PRINT #4;"|THE GRAPH CAN BE USED TO PREDICT "; 

1938 PRINT #4,"YOURK CONDITION OVER A PERIOD" 

(940 AT #4,9,18 

195% PRINT #4;"0F TIME.THE SHAPE OF THE GRAPH CORKESPONDS ' 
i46P PRINT #4,"TO YOUR BIORHYTHMS" 

L970 AT #4,,6,10 

198 PRINT #4:"THUS YOU WILL FEEL YOUR BEST °; 

(yt PRINT #4,"AT A PEAK(AND VICE VERSA)etc,]"; 

2000 INK #4,7 

2010 LINE #4,0,65.6 TO 326,55.5 

2020 LINE #4,8,73 TO 328.73 

2038 LINE #4,4.28 TO 320,28 

2040 LINE #4,38,28 TO 38,73 

2050 LINE #4,87,24 TO 87,73 

2060 LINE #4,121,28 TO 121,73 

2a7@ INK #44 


2080 END DEPine 
2090 DEKlue PROCedure state 
2108 IF post{=@ THEN zero:RETurn 
2118 IF postl)<=(ength(i)+2)/2 AND pos(1)>=Jength(i)/2 THEN 
2120 zera:RETurn 
e138 END IF 
2148 IF posti)>length(i),/2 
2150 IE pos(i)<lengtn()/ 
END DEFine 
DEFine PROCedure update 
AT #4,2,10:CLS #4,3:PRINT #4:"DATE OF BIRTH = 
FOK 1=3 TO 2 STEP -1 
PRINT #4,FILLS{" ",2-LEN{dd(h}) dd hs"; 
END POR 4 


the physical, the intellectu- age (in days) and then 
al, and the emotional. Each finds the state of your bio- 


PRINT #4,PILL8(" ",4-LEN(dd(1)));dd(1) 
AT #4,2,40 

PRINT #4,"PRESENT DATE = ”, 

FOR 1=6 TO 5 STEP ~1 


PRINT #4;FILL$(" ";2-LEN(dd(i))}dd(i):":"; 


END FOR i 
PRINT #4;FILL$(" ";4-LEN(dd(4)));dd(4) 


of these types has a differ- 
ent period, the physical 
being of 23 days, the intel- 
lectual of 33, and the emo- 
tional of 28 days. 

When the current part 


rhythms, drawing a graph 
of the following month's 
cycles. It also gives a short 
resume of the general 
meaning of your present 
cycle. 


INK #4,7 

LINE #4,38,74.5 TO 156,74.5 TO 150,82 TO 38,82 TO 38,74.5 
LINE #4,158,74.5 TO 266,74.5 TO 266,82 TO 158,82 TO 158,74.5 
INK #49 

END DEFine 


of a cycle is positive, then 
we are in a better state, so 
a positive emotional wave 
Plieeaon tee aire OUT TODAY,YOUR BODY IS OFF & NUE.” wouls cores _ + 
22241 ALANCE“T feeling of well-being. 
| Conversely, if your emo- 
Pre ie sleet tional wave is in a negative 
24a PRINT #4,"You may have trouble learning and concentrating." phase, you may feel down. 
The physical and intellectu- 
al waves follow a similar 

pattern. 


Zero days! 


The days when a 
wave crosses from positive 
to negative are termed 
‘zero’ days, and spell trou- 
ble! 

The accompanying 
program calculates your 


Biorhythm 
Calculator 
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Revey KeSsion 


inear regression is a 
powerful statistical tool 
for determining linear 
relationships 
between parameters or 
variables. In simple terms, 
linear regression determines 
the equation of a straight line, 
Y=mxX+c, for variables X and 
Y using mathematical formula 
(see Equation Box). This 
avoids having to plot the data 
on graph paper, drawing the 
‘pest fit’ line through the plot- 
ted data and finally determin- 
ing both the slope (m) and 
the y-axis intercept (c) from 
the graph (see Graph one). 


A Straight Line 


As an undergraduate, 
determining the equation of a 
straight line, Y=mX+C (graph 
one) using linear regression 
was very important in the 
analysis and interpretation of 
both my chemistry and 
physics experimental data. 
Linear regression analysis 
was preferred to the X-Y plot 
method because it saved a 
Graph Four - The simplest graph - 
out of sequence for space reasons. 


lot of time and effort. Once 
the equation was derived, | 
could substitute any X value 
into the equation to calculate 
the corresponding Y value 
without having to revert to the 
less accurate X-Y plot. The 
same holds true when calcu- 
lating the X value from known 
Y values, however, the equa- 
tion has to be rearranged, for 
example as X=(Y-c)/m. 

In the early years of 
home computing, games 
dominated the software out- 
put of most programmers. 
However, my need for a linear 
regression program was 
immediate. After comparing 
Fortran regression listings 
with the regression equations 
| was able to write a suitable 
linear regression program 
using ZX Spectrum Basic. 
The resultant linear regres- 
sion program was very sim- 
ple, but a bit slow as a result 
of the ZX Basic interpreter. As 
my statistical and reporting 
demands increased, the size 
of the program increased too, 
at the expense of speed. 

My upgrade to the supe- 
rior and faster Memotech 
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AF Wilson 
solution 


resents a statistical 
Abacus. 


Linear Regression Worksheet Template for PSION Abacus 


Listing (revised 1992): 


|Al] "Linear Regression Worksheet by A.F,Wilson 1989" 
JA2] rept("'="",45) 

{A4| "Follow key presses after colons." 

fA6} "Data Input Section “ 

[A8] "Display Regression Results : 

|A10) "Print Regression Results 

{Al2] "Save Worksheet 

[Al4] “Load Worksheet 

|A16] “Export Data to Easel 

|A18] "Reset Worksheet data 


{D6j "FS A425 

{D8} "F5 H2 

[D10] "F3 P D H1:N20 

(D12] "F3S filename 

[D14] "F3 L filename 

[D16] "F3 F E E range <ENT> C filename 
[D18] "F3 R A34:A131 and F3 R B32:C131 


|A25] “Linear Regression Data Input Section 
|A26] rept("'-",36) 

|A28] rept("=",77) 

JA29] “NUMBER 

JA30] "of points 

[A31] rept("=",77) 

{A32} 1 

{A33] A32+1 


[B29} "X-DATA" 
[C29] "Y¥-DATA" 
[D29] "SUM (MEAN" 
|D30] "- X-DATA)" 
JE29] "SUM (MEAN" 
[E30] "- Y-DATA)"” 
[F29] "top line" 

[F30] "of Corr C." 
1G29] "SUM of” 
[G30] "ERRORS" 


JA132] rept(''-",77) 
{A134] rept("=",77) 
[A133] count(A32:A131) 
[B133] sum(B32:B131) 
[C133] sum(C32:C131) 
[D133] sum(D32:D131) 


[E133] sum(E32:E131) 
{F133] sum(F32: F131) 
[G133] sum(G32:G13L) 


F3 E A33 A34:A443 


278 
283 
288 
293 
298 
303 
308 
313 
318 
323 
328 
333 


|B32] 
|B33] 
[B34] 
[B35| 
|B36| 
|B37] 
|B38} 
[B39] 
|B40| 
|B41] 
|B42] 
|B43} 


[C32] 
[C33] 
[C34] 
1C35} 
[C36] 
(C37] 
[C33] 
|C39] 
|C40] 
IC41] 
{C42} 
1C43] 


1,304 
1.290 
1.285 
1,277 
1.265 
1.255 
1.242 
1.236 
1.217 
1.207 
1,199 
1.183 


MTX computer in 1984 
resulted in a rewrite of the 
linear regression program. 
The rewrite included a 
polynomial equation solver, 
screen X-Y plot and 
machine code graphics 
print dump utility. The MTX 
regression program was a 
trusty servant until my MTX 
gave up in 1989. My 
replacement was the 
Sinclair QL: however, the 
thought of converting the 
MTX Basic/Z80 machine 
code regression program 
to SuperBasic/68K mach- 
ine code was daunting. 


A friend suggested 
using Psion Abacus and 
Easel for linear regression 
and X-Y plot output 
respectively. The linear 
regression worksheet was 
quickly designed (see the 
Listings). Unfortunately, 
Easel lacked the ability to 
plot X-Y graphs. The X-Y 
plot was not essential as a 
result of the detailed linear 
regression Summary pro- 
duced (see the Report 
Box}. However, | did 
include an export option to 


Easel in case 
someone provid- 
ed a Easel X-Y 
plot extension, 
like the 
TurboQuill+ scroll 
enhancements 
for Quill. 

Even if Easel 
provided a X-Y 
plot option like 
the mainstream 
PC compatible 
spreadsheets 
(see Graph two), 
some drawing 
skills are. still 
needed. First you 
have to reprint 
the graph with 
symbols only, no 
connecting lines between 
the data points. Then draw 
the ‘best fit straight line’ 
through the plotted data 
(see Graph three). The 
slope (m) and intercept (c) 
can then be determined 
(see Graph one). 

As | stated in my 
opening remarks, linear 
regression is an important 
analytical tool in business 
and science for forecast- 
ing, trending and determin- 
ing relationships between 
variables (such as the 
effect of increased adver- 
tising (x) on sales (y)). 
Linear regression is not 
limited to the simple X-Y 
case described above and 
can be extended to include 
multiple linear regression 
analysis. For example, sun 
tan oil sales (y) will be 
dependent on a number of 
factors - advertising (x1), 
the effect of the weather 
(x2) and competitor prod- 
uct promotions (x3). 

The quality of the 
experimental, test, ques- 
tionaire or sales data is 
important for accurate fore- 
casting or prediction of 
information, such as, will it 
rain at the weekend? Or 
will the stock market 
crash? Or whatever. Also 
one must apply common 
sense when viewing or 
interpreting plotted or 
analysed data. For 
instance, a straight line can 
be drawn through data 
plotted in Graph four; 
however, as any intelligent 
person can see, there is no 


Slope (m) 


Intercept (c) 


Corr, Coef. (r) 


where n 


Lquation Box: 


n&x*-(Lxy? 


ndx?-(Ex)? 


nLxy-Lxly 


nixy-LxLy 


Ex*Ly-LxLxy 


[(nEx?-(Lx})*(nLy?-(zy)*)]" * 


number of points and Xx 


relationship or correlation 
between this data. This is 
sometimes called a RAN- 
DOM or scatter plot. 

The linear regression 


summaulion term 


worksheet also determines 
the amount of randomness 
or scatter as the correlation 
coefficent (r) without hav- 
ing to plot the data. For 


[D32] IF(B32>0,(B32-($B133/$A 133))*(B32-($B133/$A133)),0) 


F3 FE D32 D33:DI131 


[E32] IF(C32>0,(C32-($C133/$A 133))*(C32-($C133/$A 133)),0) 


F3 E E32 E33:E131 


[F32] IF(B32>0 OR C32>0,(B32-($B133/$A133))*(C32-($C133 


/SA133)),0) 


F3 E F32 F33:F131 


[G32] IF(B32>0 OR C32>0,((C32-($C133/SA 133))-(($F133/($D133 
+1E-18))*(B32-($B133/$A 133))))*((C32-($C133/$A 133))- 
(($F133/($D133+1E-18))*(B32-($B133/$A133)))),0) 


F3 E G32 G33:G131 
F3X 


{H2] 
iH3} 
[HS] 
[H7] 
[H9} 
[HL 
|H13] 
jH15] 
{H17} 
[H19} 
({H21] 


*rept("-",26) 


"The Slope of the Line (m) 
“The Y-axis Intercept (c) 
"Standard Error of Slope 
"Reiurn to Main Mena : 
IL5] 


{L7) 
[L9| 


A133 


F133/(D133+1E-18) 


IF(A133<30,4133-2,A133-1) 


“Linear Regression Results of" 


"Number of Observations (points) 
"Number of Degrees of Freedom 


"The Correlation Coefficient (r) 
"Standard Deviation of Points from Line is" 


“Standard Error of Intercept 
F5 <ENT>" 


{L11] 1F(D133>0,F133/SQR((D133*E133)+1E-18),1) 
{L13] (D133*C133-B133*F133)/(A133*D133) 
[L15] IF(A133<30,SQR(G133/(A133-2)),SQR(G133/A133)) 


[L17] L15/SQR(D133+1E-18) 


[L19] LIS*SQR((1/A133)+(B133%2)/(A133%2)/(D133+ LE-18)) 
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Y=mX+c prediction model. 


Report Box: Linear regression is now standard in 

all mainstream spreadsheets, all statisti- 
Number of Observations (points) cal applications, and also available on 
Number of Degrees of Freedom some scientific calculators. | hope the 
The Slope of the Line (m) 0.002165 Abacus listing rectifies this omission. A 


$c PM cco ‘cath whee x4 ae stats program for the QL is long overdue. 
ee ne eas pie eral : bp Maybe Robin Stevenson will incorporate 
dM ciingioghsciisinag get on SU ; : the linear regression routines into his 
Standard Deviation of Points from Line is 000342485 archive stats listings (see QL World II.5, 
Standard Error of Slope s 9.00005728 ‘Archive Answers - Standard 
Standard trror of Intercept s 0.01752697 Deviations’). 

To go about using the worksheet, 


from step one: 


instance, a correlation 


coefficient of 0 is RAN- Title of Graph 1 


DOM, whereas correlation 
coefficient of +1 or -1 Equation of a Straight line, Y=mX+c 


means that all the plotted 
data lies ona straight line. Symbol representing 
The sign of a correlation a data point (x,y) 
coefficient just indicates da 
the direction of the slope, ee 
see Graphs 1 and 3 
respectively. Only in a per- 
pa world aa tin ea Slope of line (m) = (y2-y1) / (x2-x1) ~(*2=40,y2=50) 
ation coefficients of 1. : 
Typically, correlation coeffi- / 
cient are 0.85 to 0.95. 
Throughout the text | ; 
have used the phrase ‘best 
fit to a straight line’. If you 
square the percent correla- 
tion coefficient term, the (x1=20,y1=30) 
resultant value is a mea- | 
sure of the ‘best fit to a md 
straight line’ (r2). For P< 
example, a correlation Oa ____ Ext rapolating the line until 
coefficient of 0.95 gives a | 27S te yrarte te ineercentea 
best fit or r2 of 90% 
((0.95*0.95)*100) which 
means that 90% of the X-axde 
data points lie on the line. 
The Abacus linear 


x 30 


Graph 2 
regression worksheet Typical X-Y Plot from a Spreadsheet 


report includes a number 
of other important statisti- 
cal analyses (see Report 
Box). The standard devia- 
tion and errors in both the 
slope and intercept are a 
good measure of how well 
the data approximates to 
Y=mX+c. The bigger the 
standard deviation and 
errors then the less confi- 
dent we are in using the 
Y=mX+c model to predict 
future values of X and Y. 
Draw tram lines either ee 
side of and in parallel to ‘chin (hee 
the ‘best fit straight line’ at 2 = 
1%, 5% and 10% intervals. 
The tram line gap is a visu- 
al representation of our 
prediction confidence. If all 
the data falls within the 1% 
confidence tram lines then 
we are confident in our 


A new line is drawn between 


‘i each data point. 


HE TPH ONE Oy 
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TH EotPrn OD 


qgQgoo an 


Graph 3 


Best Fit' Straight Line 


Astraight line which 
“best Eits' the plotted 
data. This line can be 
used to determine the 
slope and the y-axis 
intercept (if 
extrapolated). 


Hie imins) "Temp (degC) 


time (inins) 


Graph 5 ; 


The Reaction Rate dependence on Temperature 


pOoOmMarap ow 


orp w 


Y=-0,002165X+1.90808485 


Bers RK} Reaction Rate Temp (K) | 


Press the Reset but- 
ton on your QL; insert 
Psion Abacus _ into 
mdv1_/flp1_ and put a 
blank formatted cartridge in 
mdv2_/flp2_. Press F1 or 
F2 depending on your 
VDU. Abacus will autorun. 
When loaded, select 64 or 
80 columns and press F2 
to get rid of the command 
table. This gives you the 
maximum display area. 

It is necessary when 
typing the listing to include 


310 


Temperature (K) 


some x,y data points, (see 
Listing) to avoid 'ERROR: 
division by zero', when 
inputting some formula. 
The spreadsheet was 
designed to handle up to 
100 x,y data points. To 
speed up data entry, 
switch off autocalculate 
and change calculation 
order to COL: 

F3 D A <ENT>(on/OFF 
toggle for autocalc) 

C <ENT>(COL/row toggle 
for calculation order) 


Now type the listing 
and save to micro- 
drive/floppy as either 
mdv2_LINREG_aba or 
flp2_LINREG_aba. The 
moment of truth has 
arrived: press the keys F3- 
X to execute the example 
regression. The report 
summary on the screen 
should match the one in 
the Report Box. 
Otherwise, you have made 
a mistake.The above x,y 
data gives the following 


equations: 

y = -0.0022x + 1.91 

X = (y-1.91)/-0.0022 

or 

y = -0.002165x + 1.908 

X = (y-1.908)/-0.002165 
depending upon the the 
accuracy of the analysis. 
Generally, the accuracy 
can be no greater than the 
input. In this case quoting 
more than 3 decimal 
places is pointless (see the 
table with Graph five). 

It is very important to 
take care when rounding 
up as this can greatly 
affect your equation and 
the accuracy of the subse- 
quent analysis. The graphi- 
cal method will have the 
same accuracy as the 
rounding. Generally, only 
report the slope and inter- 
cept to the same number 
of decimal places as the 
inputted data and use sci- 
entific notation where pos- 
sible,eg 0.002165 be- 
comes 2.165e-3. 

As another example, 
take any two points from 
the above data and substi- 
tute them into the above 
equations, the results of 
which are given below: 
x=303, y = -0.0022*303 + 
1.91 = 1.243 
xX=303, y = -0.002165*303 
+ 1.908 = 1.252 
x=303, y measured = 
1.255 
y=1.207, x = (1.207-1.91)/- 
0.0022 = 319.5 
y=1.207, x = (1.207- 
1.908)/-0.002165 = 323.8 
y=1.207, x measured = 
323.0 

After LINREG_aba 
has been fully debugged, 
rubout the data points and 
save the linear regression 
spreadsheet template to 
microdrive/floppy disk: 


F5 A1<ENT> 

F3R 
A34:A131<ENT>(rubout 
data points) 

F3 R B32:C131<ENT> 
F3 X 

F3 S flp2_LINREG_aba 
<ENT> 


Note that when LIN- 
REG_aba is loaded into 
Abacus it should default to 
the menu page. 
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DATABASE SOFTWARE 
COCKTAILS WAITER... 
DATA DESIGN 3 |PI.. 

DATA DESIGN API 


SUPER DISK INDEXER... 


DTP & CLIPART 

PAGE DESIGNER 3 [TPl.. 
UPGRADE FROM PD2..... 
SCANNED CLIPART | [U 
SCANNED CLIPART 2 [U] 
THE CLIPART [Uf iccccnncnccn 


EMULATORS 

LVL 2 Is sssacnecsaencconeiseoracntct niamveacohia memetpt oeomreneitiel £28.00 
New 48k & 128k Spectrum emulator. 

ZM/ht....... 

Includes ZM“128 and Z80 code compiler for 
PAST emulation, 


FILE HANDLING 

PILE: MABTIER [IR] s.siccoseesptteccmnenicninsisanininetc £ 12.00 
FILES 2 [UJ 

4MATTER & LOCKSMITHE 
LOCKSMITHE[U].... 

MDV TOOLCHEST. 

THE GOPHER [UI.. 

WINBACK. 2 eer cersesss 


FILE TRANSFER 

CONVERT-PCX 

DISCOVER... 

MULTI-DISCOVER. 

OPD INTERCHANGE... 

OPES WORD: scccctssamiociassaivereychusiedern meri oncesee £18.00 
New! Convert GIP, IFT. TI or CUT images to 
mode 4 or 8, Use 

with a program such as Discover. 

QL-PC PILESERVER.. 


GAMES & LEISURE 

FIVE GAME PACK [Ul smsnmneonnenonenuonn £12.50 
FLEET TACTICAL COMMAND |U].£39.95 

FTC DATA PRINTER. vincent 995 
FLIGHTDECK |U} £15.00 
FUGITIVE..... £9.95 
GREY WOLF. 

OPEN GOLF. 

QUESTION MASTER |[U.. 

QUIZ MASTER 2 [U.. 

RETURN 1O EDEN 

SOLITAIRE [U] 

SQUIDGY ROUND THE WORLD [U] 


GENEALOGY 

GENEALOGIST 3 [TP] £60.00 
Upgrade 2nd Edition... Meer ereenre re So EU 
upgrade other versions, ask! 

GENEALOGIST 2ND EDITION £30.00 
BUDGET 128K GENEALOGIST [U]. 


Dilwyn Jones Computing 
4] Bro Emrys, Tal-y-Bont, 

Bangor, Gwynedd LLS7 3YT U.K 

Fax/Tel: Bangor (0248) 354023 


GRAPHICS 

IMAGE-D [U] 

IMAGE. PROCESSOR... 
LINE DESIGN 2 [TP] 
New, much improved version 2. 
PAINTER IP li eccccremn 
PICTUREMASTER. 
PICTUREMASTER PLUS. 
QRACTAL IPI... 

QUICK MAND 

SCREEN COMPRESSION 
SCREEN SNATCHERS. 
SIMPLE VIDEO TITLES.. 
TRANS [eeepc 


HARDWARE 

MICRO PROCESS CONTROLLER... 

MPC SOFTWARE 

NETWORK PROYVER. 

QPOWER REGULATOR. 

(unsuitable Gold Cards) 

SERMOUSE (now super gold card compatible)... 
£40,00 

SYSTEM AMADEUS -New hardware system, 
Voice 

Analyser/Sound, bidirectional centronics, DIY 
interface and more, ask for prices and details! 
Add £2.50 postage for MPC, SERMOUSE and 
AMADEUS, 


LABELLING 

ADDRESS BOOK & LABEL PRINTER [Rl........ 
£15.00 

SUPER DISK LABELLER... 


MAGAZINES 

QREVIEW (issues 1 (0 3). cscs 

QL TECHNICAL REVIEW sei of 8... UK price 
Europe..£16.00 Other countries... 

QL ADVENTURER'S FORUM set of 11...UK 
Europe....£20.00 Other countrics.. £30.00 
QL Adventurers Forum includes 2 issues of Leisure 
Review, Both are games magazines. 


MUSIC 

MUSIC MANAGER... wnat oA 12.00 
New, simple to use program to create ‘and play 
tunes on a QL. 


PROGRAMMING 

BASIC REPORTER [U £10.00 
[ivcatennnactesarndtctnrss £26.00 
New powerful intelligent machine code disassem- 
bler. 

TESA Be Pl sncerescareascatscteen cmeterneitents setetcamiodan £40.00 
Brand new version of this disassembler. 
DITOOLKIT [UU]... 

EASYPTR 3 PART 1 [PI. 

EASYPTR 3 PART 2 [PI]. 

EASYPTR 3 PART 3 [P}. 

MASTERBASIC...... nono 

New! Superbasic programming aid. 
MEGATOOLKIT DISK [UL. 

MEGATOOLKIT EPROM [L 

QLIBRARY MANAGER........ 

New! Superbasic programing aid. 

QLIBERATOR 3.36 [P] 

BUDGET QLIBERATOR [U 

QLOAD AND OREF [U 

S EDIT EDITOR... 

TOOLKIT 2 [U] disk*madv.£19.95 EPRO 


SCREEN DUMPS 
SIDEWINDER PLUS... 


SPREADSHEET PRINTING 
SIDEWRITER [UP 
3D TERRAIN... 


SUNDRIES 

3.5" DSDD DISKS each........ 
3.5" DSHD DISKS each... 
3.5" DISK LABEL (roll 10) 
3.5" LABELS (printer roll)... 
ADDRESS LABELS (roll 100) 
MICRODRIVE CARTRIDGE 
MDV LABELS (roll 100). 
MOUSE MAT.. 


3.5° DISK DIVIDERS 2 Dv... 
Add £0.50 postage for labels or mouse mal if only 
ordering those, or £2.50 postage for disks ar disk box divider sets, | 


TEXT 
BANTER BANNERS. 
BIBLE TEXT, 


New! Print 2 pages side by side in le p 

on A4 paper on a HP Deskjet 500 or aiullar printer. 
SOUNDER (TP csescises usoicicersenceesctatnsennata £20.00 
New text file indexing system, 
QTYP2 [PI 

QUICK POSTERS | 

ROB ROY PACK [U] 

SPELLBOUND 


TEXT “N' GRAPHIX. 


OTHER SOFTWARE 

CUE-SHELL [TP] 

New QL desktop system. 

FLOPPY DISK UTILITIES 

New! Ergon Development's disk editor with file 
recovery, 

even for ED disk users, 

HOME, BUDGET [Unc ssessmsesenaeieint nae £20.00 | 
PRINTERMASTER [UJ]. 

QPAC | {P..... 

QPAC? [PI..... 

THE Pointer Environment package! 


SCREEN DAZZLER.. 

SCREEN ECONOMISER {U], 

SLOWGOLD [U)L neon 

SPEEDSCREEN |U] 

SPEEDSCREEN EPROM [U]}. 
TASKMASTER......... 

VISION MIXER I. satel O) 
VISION MIXER PLUS. nc sumaseminiana £22.50 | 


CALL OR WRITE FOR A FREE COPY OF OLR QL SOFT- | 
WARE CATALOGLE. WITEAROUND 100 QL PRODUCTS, | 
WITH FAR MORE DETAIL THAN WE COULD [INCLUDE — $ 
IN THIS ADVERT! 


PLEASE NOTE: |U] ABOVE MEANS THAT THE SOFTWARE J 
[S SUITABLE POR USE ON A 128K QL [R] MEANS 
RAMDISK REQUIRED, [T] MEANS TOOLKIT REQUIRED, 

[IP] MEANS POINTER DRIVEN (MOUSE OR KEYBOARD). 


TERMS: POSTAGE-saftware sent post free to UK, overseas add £114) per program (maximum £3.00), Floppy disks, SERaiouse. ete. add £2.50 posture (sce abowe PAYMENT - In 
UK currency (pounds sterling) only. please, Yalid methods of payment are cheque drawn on UK branch of bank or building society, Eurocheque. Postal Order, cash (send by reyis- 
tered post! or by credit card - Visa, Access. Mastercard and Eurocard accepted. Make cheques ete payable to DILWYN JONES COMPUTING. Minimum order vlue £5.00 (due to 
bank charges) Goods remain property of Ditwva Jones Computing until patd for in full) Orders normally sent oul within a few days of reevipt. we atlempl to advise if any delay 
anticipated due to stock problems. Orders can be accepted by telephone if paid tor with credit card, Orders paid with credit card can unly be sent to cardholder's address under card 
company nies. FAX - We now have a lax machine on our usual number (0248) 354023. 


Mark SuperBASiC in Action QDOS FILE 


Simon N Goodwin for Sinclair 


2.9, May/cune 1994; 
ANYOPERNS, 
FLEN, 
INPUTS, MORE, 


CHAN_W%, CURSEN, 


TMs 
135 ck GetHEAl, 
MOVE _ MEMORY, NEWCHANS, RECEP, REPORT, 
ote) “-k RENAME, SET_POSITICN, 

: E SPL..USE, STRINGS, 
i TASK, =YPs_iN 
compiler optimis 


Pl ey & 


© 


SPEND 
Two TURBO 
Sek lew 


ation 


= HQ currert, 1i1,3,k,n,a,tyve, 
row, pixelLine 

150 DATA LARSA 40 

1396 


:REMark 


rae aMark Stangard maximum 


Por 

220 

Aon (2 _ :-REMark G or 2 in 
MOLE 8/12; C te in MODE 4 

24 : t=y¥oGize" +:REMark 

co door 1 (double height) 

250 "255 *=DirFileType” 

tyoe_ma 5! PLcK<_maskt=256 

Pe GPL_UGE “serl"™ :REMark Target device for 
PRINT spooling (or PRT 1) 


2a — #0, 489, 40,24, 216 PAPER #0, G 
230 ens 4/6,216,24,09 : PAPER J : INK 7 : 


MODE 4 : REMarx or 8 or 12 LE 


) REFSRSNCE vathS,dir$ (6,6), flags (0) 
bogs rene PROCedure NZW_VIEW (status%, edge 
1, ealnS, Lopt, text_Lines%, dirs, flags) 
AS) QEMarx superBacic in Action Requester 
meditied fer Odes BROWSER 
360 RiMarsx OTATUGS = rewort window # (2 ay 
SoLEPS GF Kore 
ara EDGES = KX cfiset, TSXT_LINES? = 
35 winaow heignt 
ars MARKS = select default; PATHS = 
ivectory 
Ark TOP% first pixei line; opens 
AVENUS & #OCROLL BARS 
400 LCCs. margin’ :;REMark LOCAL width 


etc. 


reer CO ours 


SO menu t=NEWCHANS 
-L border$-"3 *=BorcerWidth" : 
Sraer_o2 F: 50 *=BorderCo_our"™ 


wid 
borders 


~ {name Limit3+1}) + 


480 helgnta=cnar_y% * text_Lines% + border’ 
* ee 


490 marganv=edge*—borders*e 


300 OPEK #menu%, "SCR_" &widtna’ &"x™" &neights 
g"a" & margins &"x" Stops 

ey 

240 scroll oar%=NEWCHANS 


530 OPEN #scroll_bar%,"SCR_8x" &height% &"a" 
& (2+widrhé+margin’)&"x"etops 

540 PAPER #scroll_bar%,2 

width%=width%3 - border * 4 

560 3 


570 mark%=#¢ 

SQ GET_DIR 

590 heres=0 Linet=nere% 

6CO TIDY _MesU 

6lG TF sorting : SHELL SORT 

620 FILL WINDOW heres 

630 END DEFine NEW_VIEW 

649 

650 RE FaRENCE cath$;dir4i0, 4), tlagt(o) 
660 DEFine PROCedure SELECTOR (status 


3, paths, text _Lines?,dix%, 
670 REMark Parameters as 
usec MENU & SCROLL. BARS 
689 CURSEN #scatus% 

69) CHOOSE 


Slag) 


akove, put fower;: 


709 END DEFine SsLSCTOR 

7LG 

729 DEF ine PROCedure GHl_bIR 

7320 LOCalL dix, lengtn’, name? (name Limit 


3), head (64) 


740 dir %=ANYOPENS (path$, 4) 


#50 SF Girs>d 
CLS #status% 
PRINT #status%;"Reading directory"! 


oo 


REPeat seek 
TF EOF (#dir%t} TRAN EXTT 
heaasS=INPUTS (#dir%$,64) 
IF head#(1 TOG 16)=FrILLs 
(CHRS (0), 16) : NEXT seek 
8230 flack (freez) “CDE (hess Ci? 
~engtkRé=STRING Aoeadicbh pad 
nameS+nead$ (1? TO 16+ 
“EF flag (free? 
nameS=nameS & " =>" 


SEQK 


349 
859 


sot) 


B79 dir$ (free%)=name$ 

820 freet=freett+l 

$29 -F freetemax_files% THAN EXIT seek 
969 END REPeat seek 

gigi 

929 CLOSE #air% 

$30 END IF 

940 flag%(O)=dir_type% :REMark |! pick_mask% 
950 iF "_" INSTR patns = LEN(path$) 

960 dir$(0}="<- DRIVES" 

$970 EBELSS 

980 dirs (Q}="<- PARENT" 

990) EXD IF 

$95 If KOT oT COMMANDS com_code% 

=a END DEFire GET_DIR 


DEPine PROCedure 


SEBLo, SORT 


uCCai 1, j,k,n,0, passes,7%,75(name_Limit 
n=rree%-l 
IF ne2 
LF airs (1 }adirs (2) 
zS=dirS(l) : z%3=tladqs{1) 
dirs(lj)edir$(2) : flagt(l}=flagi (2) 
dire (4)=28 ¢ Plage (2)=2% 


1100 
1112 
1129 


1129 d=_ : paszec=0 


ENDO IF 
END IF 
TF nee 


124d REPeat size 
2LA@ d-3*d 


116g IF den 


masces=opasses~1 


ligt END REPeat 3.ze 
=3G TF passes >? 
LeuU PRINT #ctatus¢!! "Sorting 
ni "names"! 
SNG LP 
d=d DIV 2 
REPeat pasa 


PRINT #5 
pacses=passes-l 


Latus$! !bassec! 


FOR 
IF d=_ 


END 


TEEN EXIT pass 


EXD REP@eat Dace 
END IF 
COMMANDS com_codes REMark 
SORT 


END DEFine SEELI_ 


PEF ine 

Local n 

CLS #menuS 

FCR n-froms 

&, trees)-l 
RCHOS_NAM= n 

ZND FOR or 

AT tmena’, Line?, O 


NaFine Frl._WINDOW 


PROCedure FILL 


TO MINIMS (f£ 
1486 
149%) 


Lait 


Loa END 


DEPine PROCedure SCHO 
1540 IF flagt(n%) && pick_mask% 


75=dirs (j+d) s=fla 
POR k=] TG & SIGP <4 
IF z2$>=airS(x«) 
dir (kta) =dir$(k)} 
a kee =rlaqalx 


CLS 


_WINDOW 


NAME (1% 


wy 


TREN EXIT k 


) 


(from$) 


rom%+text_Lines 


) 


=LSE PAPER #menu%, 


beg PAPER #menu%, 

bell BND LE 

“S40 1F dir cypes=(#lag%(n%) &é 
iosd INK #menuw, ELSE INK #me 
load END IF 
loud PRINT #menus, dirs (n$) CLS 


lol0 Le flagi(nt}) && click _mask% 


fmenut, U 
16290 END DEFine ECKO_NAME 
oo = 


DEFine PROCedure 

1659 BORDER #menus, 9 

CLS 4#¢menue 

[STZR #menut, sive_xt, cize_y# 

L NK #menu, 4 g 

Eeware interactisn! 
] 


TIDY_MENU 


169U Tr border%> BORDER #fmenud 

t= | ,ocder embewi? 

LYOU lk border’>C : BORDER #menu%, 50 
Sp, Ltt 


i/ld SLIDER 
fol SND PEF Lne TIDY _MENC 


J DEFine PROCedure REORAW 
Yoo TIDY _MENU 
7od FTL WINDOW 


nere%—-Line 


Rmeriuds, 4 
PAFER 


,obvorder 


rder 


#status 


770 BLAT Lines 
780 END DEFine REDRAW 
ye ; 


Kc 
2 


DEFine PROCedure SLIDER 
LOCal delta 
CLS #3crell_ bar’ 
IF text_Lines%>frees-l 
septas=char_ys * text 
EGE 
aeoth 
frees 
ERE IF 
ie 


eo 
ce a e) 


mM OF to oO OD 
line 
a 


7 OV On dm Ww 
»c 


Cc 


_Lines% 


ee 


HG 


&e(text_lLines3 * 2 * char _y%)} 


o 


13790 
1838a 
1890 delta=heres 
aecimal divisior 

1960 offtset%=(¢ 


Frees>. 


-—Lbines® :rEMark 


har_y? *  text_ 


aelta )/treet 
1910 ELSE 
1926 offset%=- 


1930 
1940 
pixels 
1950 IF 


ERD if 

REMark The s.4 
tail 
decths<2 


1960 deprh%=2 

1976 TF border%<2 THEN offser%-offset%-2 
1980 ZF otffset3<0O THEN offset%=0 

1990 END iF 

2000 BLOCK #scroli,bart,4,deotht,2,oZfsets 


t+border?, 
2916 
2020 
£030 


END DEFine SLIDER 

DEFine PROCedure 

Tr pathg="" 
NEW_DRIVE 


DOWN DIR (mark*} 


2050 
2060 ELSE 

2076 RiMark Add directory name without 
eo" Sue ix 

2080 patnaS=patnaS & dirS(nere%,1 To 

LEN (dirs (hkere%}))-3) 

2090 ERD IS 

00 NEW _DIR 

GO END DEFine 


af pathostl RiTurn 


DOWN_DIR 


END 


1 
220 
2130 DEFine PRCCedure NEW_DIR 
2140 GaT_DIR : TF soerting SRELL_ SORT 
2150 heret=0 Line $=0 R2DRAW 
2161 DSFine NEW DIR 


vobee PRCCedure 
Ofal i 
te L=L2N (patn3s)~-1 
IF paths(i)="_" 
END FOR i 
ky eee 
REMark Remove net tiie 
TF path$(])=="n" 1=0 
ENDL IF ‘ 
lk &z=1 


ie mu . ie A ‘nd "iene 
he : BEVICESs 


JP_DIR 


TO STE? -l 
BXIT 2 


ELSE 
path$S=pazth¢(l ITO i} 

SNS IF 

SNS SEFine UP_ 


NEW _DIR 


Di 


SEE ine PROCedure NEW_SRIVE 


LOCai key$(1),tflagé 

CLS #status& 

PRINT #statust; "Select drive number 
28 GY ESE) £ ™2 
0 REPeat drive 


eaeg keyS=INKEYS5 (#¢tatusa,-i} 


server prefix 


path:" 


oe IE KeyS-CERS (27) cLS #status% 
RETurn 
2400 TF keySo="1]" AND key$<="8" 2: 5 
2 REPeat. arive 
2 2INT #sotatust; keys 
2430 pata$=edir$(nere3) & xey$S & "_" 
2440 TY dirStheret)=="N" +: GET_REMOTE 
2#5G tflagt=ANYOPSNG (saché, <4) 
2460 IF ttlagi<d 
2470 MOAN "Directory " & paths & " 
available." 
2480 paths="" 
2480 Bass, 
2500 CLOSE #tflag? 
2510 END IF 
2515 REMark COMMANDS com_code% 
2529 END DEFine NEW DRIVE 
aa30 4 
2240 DEFine PROCedure GET_REM 
2550 CLS #status% 
2560 PRINT #statuss;"Bnter remote 
2570 pathS=ED1TS (#oretus% paths, mene Limwits 
2080 BND DEFine GET _RSMCTE 
Sol 3 
2600 DEFine PROCedure DEVICES 


Seeteanereree 


Lb 4l 


(startt+3 


enone 


s5an 
2990 


orp 


awl 


tre 


ENO 


ig 


heres=0 
SORAW 
BR 


R 


“- DEVICES" 
shee -PEEK_U(SOYSSASE+ 72) 
device list 
rel 

FPeat loon 

IF shark=QrEXIT is 

reigeile tla Seite 

,PEEK_W(start+36)} 

i LEN (dirS (frees) }>0 
flagt(free})=cir_types 
free%=tree$+L 

END IF 

sta 


on es ag 


‘reel 


COP 


=PEEK_L ( 
REPeat Loop 
F sorting : SEELL_SORT 
Linet=here% 


start} 


DEF ine DEVICES 


DEFine PROCecdure MOAN( text?) 


F 


Ee 


END 


5 


i 


B 


CLS #5 


hata ti) 


tatuss 


RINT #otatuca;texts 


AWATT_RKEY 


SOMMANDS com_codet :REMark 


DEFine MOAN 
EFine PAOoCedure CEKCOS 
OCas k 

LAT Line’ 


Shes WA 
REFeat poll 


Pa Bi 
ia pe 


:REMark 


te 


K=CODE (INXEYS (#status$,-—-1)) 
If k=0 THEN SUSPEND TASK 16 
<b=k :REMarsx Glopal flag 
naLect ON k 
ie, 1287S, 58768 
Hands MOVa_UP 
=299 : PAGS JP 
220421 hereSe-l Line%=3 
Hel? PICK_MAME ; MOVE_ 
=216 MOVE 


NEXS 


Ue) 


an. 


i% 


) 


a 


3000 =2l7 : PAGE_DOWN 

3019 =2.8,22) here%=tree%-text Lines 

% :LineS=0 :FPASE DOWN 

3029 =226 : PICK _ NAME MOVE _ DOWN 

3039 =244,250 : REDRAW 

3949 32 PICK NAME 

3939 =106 ; IF here%=0 UP _ DIR 

NEXT poll 

3069 IF dir, types=(flags (here 

t) && uyoe_mask%) 

2070 DOWN_DIR flac%(here%) 
mann % 


&& pPicKk_mask%)=C 
OG 


NEXT poll 
ELSE 
REMarx IF 
ICK NAME 
ACTICN zor, 


(flagi (here 


cone 


%, PREFIXS (path.$)}),dir$ (heres} 

SLs COMMANES com_code%} : 
REMark EXIT poll 

S126 aN IF 

ioral lee SZ, 290, 1a? EXIT poll REMark 
here%=0 remeved 

S25 =REMAINSER 30 COMMAND 

Sala END SELect 


314 


S1a5 


S15 
316 


3179 
318 
319 


tar ta Os a 
Cad ka dat 


te G3 
teh ie 


com) 


Or 
Go 


ey 


on 


[ae 


3 
3 
3 
3 
“- 
3 

4 
3 
2 


ee OL a bed le 


oe er 
re 


alo 


eae 


C 
i 
0 
a 
J 
) 
J 


c 


ies 


END 
BLAT 
BND 


aE ine PROCedure BLAT(item’) 
YER #menu%,-1l 


REPFeat 
Lines 
DEFine 


poll 


CHOOSE 


BLOCK #menut,width?, char y%,0,items * 
ve. S 
Tn 4 ro 


OVER #menu’, 0 
END DEFine BLAT 


DEFine PROCedure 
IF nereset 
BLAT Line’ 
here’ 


MOVE_UP 


SCROLL #menus, char_y% 
Line%=0 AT #tmenus, Lines, 0 
ECHO_NAME here’? 
SLIBER 
END IF :REMa 
BLAT Lines 
END IF 
END DEFine 


UEFi ne PROCedure 
IF hKheret<frees-l 
Lines 


rk Scrol. down 


MOVE_U? 


MOVE _DOWN 


BLAL 


errs 
IF Line%> 
SCROLL #menus, -char_y% 
Line%=text_Lines#-i : AT 
%, 8 
ECHO. NAME here% 
SLi DER 
END Ff 
BLAT 
END IF 
END DEFine MOVE_ 


#menu 


Lines 


DOWN 


DEFine PROCedure PICK NAME 
Flags (nere%}=flag% (heres) 
AT #menu%, nines, 

NAMS neres 


Aw a 


pick_mask’% 


SCHo_ 


3 
4000 
S019 


414 
Tao: 
1ha 


fs abs fe Je 
tlw 


suQu 


BuAT Line%S 
PEN DEFine PLCX_NAME 


DSrine PROCedure PAGE _UP 
LOCal top? 


topt=heres—-Line%—-text_Liness 


LF t.eps<O THEN top%=9 Line?=C 
PILL WINDCW tows 

PLAT Line’ 

heret=tonst+hines 


SLIDER 


ENO DEFine PAGR_UP 


DEF ine PROCedure PAGE DCWN 


L6OCal tops 


toptsheret—-LineS+sext_Lines% 
IF ton$-text_Lines%>=frees% 
2 1) -((free%- 


{text_Lines%- 


. topt=0 

ine$>=2 orl ines 3 
LE 

F.LL_WINDS 7 tons 

SLAT Lines 


her + Ui % 
SLIDER 
ENR ORPine PAGE DOWN 


REMark **** Simple BASIC 


CLE PUNGE LORS 


GEPine FuNection MPEEKS (addr, len*) 
wocal p,t3(name_Limit’) 

Leen REMarx Use Turpe 
FOR aac [TO addr+ler%3-1l 
& CHRS (PEEK (p) ) 


Toolkit 


RES wer Ze 


END DEFine MPERRKS 


DEFine FruNction MINIM$% (a%,b%) 
IF ateb& 
RETurn &% 


RETurn b% 
ZANT 


‘line MiNIMs, 


SZRINGS 15 wn Turpa 


BASIC 


REMAr« 
Kit» & 


REMarx in QOL Worla; see 
vonbary Lous. 

DEE ine PROCedure 2 

SAVE EFLP1 BROWSERS BAS 


NS BEFine & 


RFMark Gusset ct DIY 


two variables 
SEF iI FuNetion MINIM(a,b) 


n< 
Bi 
inn 6 


MIKIM 


ASI 


ReMark @dos BROWSER — SuperBA 


versions 


Toolxit & 


1)-top 


Line%=free 


of 


PEEKS 


Teolkit MINIMJM FN 


Acilicn 


May/June 1994 
5010 REMark Uses FILE 
inzroduced last year 
3020 REMark Copyright 
Gocdwin, version 0.9 


S030 


Pe) 


EQUESTER raccines 


1992,1994 Gimeon N 


ZS 


oCedure WINDOZE 


(nm) 


_ codes, current, sxews 


p= wFine PR 
Leia it 8 Si 


i 
o 
a 
a | 


b 

5 REMark Windows are numberean From 0 to 
r=1 

SO7Q skewh=6 READ COMMANDS com_code%=0 
S080 DIM d1$ (max _fites%, name_Limit%),azZs 

{ 


max_ftiles%,name_Limité) 

BOSC DIM £:%(max_filesi), f23t(max_tilest) 
S100 ReMarx G2, F2 etc. tor more windows (or 
use Minerva slices) 

5110 DIM pathlS(name Liritt),patn2: 
(name_Limit’ 

5120 DIM xS$(50),y$(59),wild$(name_Limit 


$),aest$ (50) 


5120 DIM ear /1),place3(n-l, 


5146 chlS="flel_ tax_" : patnaz 
<a REMar< MODE @:; NAW_VIEW 
,40,pathi$,0,19,d15,f1% 


ae 


BL 70 


NEW _VIEW #C,24,pathi5,C 
a3(90,9js=menu% : ias(G,lj= 
5180 GAVE_WINDCOW_SPEC 0 
5190 REMark MCDE 8: NEW_VIEW 
#0 at pataZzs, 108,10,d25,£2% 

200 NEW_VISW #0,272,pathe%, 0,29, 
ids (i, J) =menut 

SAVE _WINDOW_. 
REMark 


azo, Fak 

id (1,lj=seroe.l_bar* 
SPEC 1 
COMMANDS 9 


>REMark No highlight 


current=0 : REPeat polly 
LOOK_AT current 


TF kberlO : current=l-current 
END REPeat ooliy 
END DEFine WINDSOZE 


roe ba 6 | DEF ine PROCedure LOOK_AT(k} 
2319 REMark Focus on file selector K; MODE 


sensitive 
scrol._bar%=#id3(k,1} 
Line%$=p- 


ON « 
#0, 0,0 
PADDEDS 


40 SELect 
0 =G 3: AT 
PRINT #0; 


:{oathidg,name_Limit 


SELECTOR #9, pathi#, 20,d13,f£1% 
AT #C0,C,rare_Limit%+ 
‘T #0; PADURDS (path2$,name_Limit 


-isting cn page % 


20,d2$, £23 


OR #0,path25, 


& kien: ES. Ok 
DaFine GiéMME 


SAVE_WINDOW_SPS 
td’? 


DEFine PROCedure etn 
RiMark id’ (n,J}=menu’s 
(n, L}=sercll bar’ 

5470 places(n, Q) 
5480 piace%(n, 2) 
END DEFine 
5D0G ¢ 

DEFine FuNction PASDEDS 


2 


=here% 
=tree% 
SAVE_WINDOW_SPEC 


place’ (n,1)=Line% 


(texts, oe 


552C RETurn texts & FILLS {(CHRS(32), lengzhé- 
i 2a) 
553C END DEFire PADDEDS 


584C +: 


Lr 


#07 2A 


oF tr Wat or 


run 
Hem Hm in 


ds 


ee GS ee 


a 
5 
& 


b5U 
560 
570 
530 
app 

90 


he 
cs 


b?9U 


2% 


6059 
6041) 
MO TLid 
959 


6 


69CC 


on os 


ao os 


FeO 
11u 
120 
Lak 


sea 


co 


= £3 


Pay 


ous 
Liash. 


DElire Fubetion PREFIXS (text$) 


LOCal i 


j="_" TNETR sents 
IF i=9 2 REESE "" tREMSrk Gaguldn't 
ny 


ETurn text#(1 Ta 
NO SEFine PREFIXS 


1} 


DSPine PROCedure READ COMMANDS 
fark Initialise COMS (COM_COUNT: 
OTORE & 700 

COM Penn's 

or saurt®, 16) 
mom_count? 

(i) 


8c 
To 


AT eT ah) He i ae SEPRLT YORAPHICS"™ 


1 "M0 ihe , "RENAME" 
AT moW AD", 


END GeFiee READ 


7 "PRINT" 


Were 


" JT Ww 
i * MWILDCARD" 
COMMA 


NSS 


SEBPine PROCedure COMMANDS (thici2) 
PAPER #9, 0 CLS #0 ; INK #0,7 

PRINT #07 PADDED? (pazal$, name_bimité) 
AT #0,0,mname_Limit%$+5 SRENT 

DLEDS (path23, name_Limit’%) 
PAPSR #0,0,2,0 : PRINT #9; "0 


tdos Browser 


SONG 1994"! 
REMar«< PAPER #0, 
FOR i=. TO com counts 
PAPER #0, 0 PRINT #0!" "lo: INK #0, 
i? thisit=i TEEN PAPER #0,4 BUSS 
HU, 
PRINT #0!!CERS(32) & comS(i) & 
Bee is 
REMark iF thial%=1 THEN PAPSR #0,7? 
s-EFine PROCedu CBO_COMMAND 
iry to match K$ with a 
% 
com_code%$=2 
_coedeieoy 
COMMANDS com, codes 
IF wicking NG_BATCH 
COMMAND com_code%® :REMark Uraate 


ar dE 


ORF ine 


no 


_ COMMAND 


PFine PROCedure ACTION(],drives, #ileS) 


LF J=0 : RETUrN 


ON j GO TO 


*0GQ, 7200, 7200, 723 go 
/ 7909, 8000, BLUE 
OAN "Unanown command 


oO SEFine ACTION 


CG, #409, 1590, 7605, 77 


cade: " 


LEFine PROCeduxze DO BATCH 


al 


devS(name Limit%),o.d_here 


$,old_Line%, skews, this_# 
6él6G adevS=PREFIXS(path$) :REMark Save 
Fusretieon Galis leaner 


6165 sxewS=C0 : cla heret=heres% : old_Line 
%=Lines BLAT Line® 

617G FOR i=l TO freet-t 

6175 thislt=itskews :REMark Compencate for 
movement 

6186 TF flage(thisc:i3) &£&@ pick_mas 

@é182 UPGATE thisi:% :RSMarx sneer baie aa 
one ig displayea 


TE iINKEYS (#0, 29) =CHRS (27) 


MOAN 


typed.": EXIT i 
ACTICN com_codet,devS,diré(tnisl$) 
Flag% (thisl*) =flag%(this1l%)- 


pick_mask% 
6219 UPSATE i: 
Debounc 
erat | 


ape 


1 PAUSE 1 :iRE 


PAUSE 


e 


TE INKZY$ (#6,18) 
typed. ": EXIT 1 
ENG SF 
END FOR 


=CHRS (27) 


5 


»§ : uinet=old_Line$ 


DEFine DO, BATCH 


REFERENCE a$,bS 


DEFine PROCedure 
PARTS (firsts, Lascs,as, bS) 
6390 IF path$=pathls 


h 
dest$=path 
Fick 


64c0 
6410 


642306 END Lt 
6440 a$-firstS & lasts 
4450 bS$=dest$ & last$(1+LEN(path$)- 
LEN(firstS) TO LEN(lastS)} 

6460 END DSPFine 


PARTS 


RiMark Start 
RSMark ALL 
FGR i«l Tc free’ 

flag%(ij=flag’ 
END FOR i 


of ACTION subroutines 


1 
6910 (i) 
6920 


i| pick_masx% 


6950 REDRAW 

6940 RETurn 

698C ; 

6990 RBMarx COPY 

760CG PARTS driveS,file$,x%,y$ 


YOC PRINT #0\\"Copying"!xS!I"to"!lys 


7020 COPY xi TO y$ :REMark Optimise this 
ee: A 
7025 REMarx Uvdate target array and screen 
7030 RETurn 
“ : 
SG REMarx DELETE 
aa PRINT #0\\"De shite" Leite & fiies 


BELETE drives & files 
TOR n=nere% TO Free3-2 
dirs. (njpedirs [+l 
=lag3(n)=ftlag%(n+1} 

alo 3OA Ti 


ap 
ae 


29 


39 


ob skew%S=skew%-1l : freets=free%-1 
f/l6a IF here%>=free% 
7162 heret=frees—-i 
7i6s Linet=MINIMS (text_Linesi-1, free’ -1} 
7169 END IF 
7275 REDRAW 
7180 RETurn 
FIBRE 3 


meat 
rae ee 


:REMeark A_low 


REMark 
UROL #J 
a Laput 
Ke TE Pal 


task to grab 
_ETSOFT" ;REMatk For example 
sh Jorn 2 
SUSPEND TASK 20 
EER te>o] & “L" 
i220 SUSPEND _TASK 20 
tilename input windcw 


7230 TYPE_IK drive & tiles & 


23 T¥YSE IN CHRS (10) & 


:REM4ar«< Wait for 


CHRS (1L0}):ReMark File to load 
7l40 CURSEN #0 


7270 


RETusn 


GRAPHICS 

CRE EN 
CRANS 

N #ch%,drivesS & 

SRAPHTCS 

fohs } 

_SCRESN 


Files 


REMark 


5 Saow INFOrmation apout fil 
T4000 GHOW_TNFO drive? & files 
7405 RETurn 
(4lu: 
7490 REMark MOVE 
7500 GO SUB JOGO :REMark Copy 
Y510 GO TO #100 :REMark Delete original 


7Sag 3 
REMark SPRINT 
SPL ariveS & 
V610 3: 
76SC REMars« QUIT 

TING rOR i=0,1 

hie FOR n=d,2 
Fel SLOSE #id3(i,n) 
ENO FOR n 
ENG 3OR 1 
REMark Recever 
MODE 4 


STOP 


arp 


AEMark REKAME 


MOAN "RENAME doesn't work yet." : 


REMark SWAP 


7300 MOAN "SWAP doesn't work yet." : R&Turn 


REMark action routine 
SAVE_OCRSEN 
G1C INK #9, 4 
CG PRINT #0; 


"TEXT" 


"DTY Teolkit MORE file viewer 


use keya"™ 
8030 PRINT #0;"2% to move, ~ALI for pages 
ESC ba Bsic™ 
4040 INK 40,7 

MORE drive & filet? : RESTORE SCREEN 

CORSEN #9 2: RETurr 
eueu 
SO8G ; WILDCARD curulative selection 
B1CU #9 
S11 INPUT #0;“snter wildeard pattern ts 
maceh?: "!wildS\\ 
6i20 IF TEN (wild5) 20 


6230 


ue 
FOR i=1 TO frees-. 
Bid INS 


IF wilds 


BLSC ftadt (i)—“ladt ey || pick_mask% 
#160 PRINT #0;0ir$(i} 


ge(i} 


&& tyne mask? 


AE CRAW 


#9 2: RETurn 


SEFine PROCedure 


SAV>, oGREEN 


é2 screen_snap= ALCEP (32.168) 

E2 LF acreen_snapr0 

$309 MOVE_MEMCRY SCREEN_RAM TO 
screen_snap, 32768 

€319 EL& ? BORDER 2,5 PAPER #0,6 CLS 
#9 

8320 END IF 

2330 END DEFine SAVE_SCREEN 

a340 : 

#350 DEFine PROCeédure RESTORE_SCRAEN 
8360 IF screen_sravc >t 

e370 MCVE_MEMORY screen_snap TO 


SCREEN RAM, 322766 

e350 RECHP sereen_cnap 

8390 screen_snap-0 :REMar« Be carefui! 
84906 ELSS 

8410 REMark Redraw some otner way 
8420 END TF 

8430 END DEFine RESTCRa_SCREEN 

8440 : 

8450 DEFine FuNetion SCREEN_RAM 

846C REMarx Gecend screen is controlied by 
oit 7 of SV.MCSTAT 

B4/0 RETurn 13iC72 + 32762 * 


EK (SYSBASE+52)>22/) 

END DEFine SCREEN_RAM 

St 

50C DEFine PRO 

5:0 LOCal cutfa,typ 

but Fa=ALCHP (64) 

IF buffa>Q 
ché=NEWCHANS 
OPEN_IN #¢7%, name$ 
GetiBAD #cas, butfa 
CLS #C 

PRINT #O0\\= nee 

Gh thefts! Les, 
PRINT #01! "dated" !DATES 

EK_L{buftfa+52)) & ";"! 
-F PERK (eultard) 

Lproerectend™s 
type=PEER (surtat+5) 

2 SELéct GN type 

$0) =C : PRINT #9!!"data file." 

0 =l : PRINT #0! !"task, dataspace"! 

K_Li{bwifatejé".* 


Cedure SHOW _INFO (name?) 


€,chs 


+ 


Oo cw cw 
ro Ot 
c 


& 
a G 


og 


OG ~1 Mou Ww Ls Bas 
§3 &2 


erke n" & 


Wo 


[eal 


MU in Flin in on int 
Fl 
Pl eo BY co. co 


a 


PRINT 


< 
oe ES 


dre 
be a 


TMH oH ma 


. Eo 
a a oa 


so co oe Deen mt ODE Mw Go w ow 
a 


650 =Z : PRINT #0!!"cebtect Link file." 

660 =3,255 : PRINT #0!! "sub-directory." 

655 =4 TO L1:PRINI #0!!"Sveculator tyse 
& type 

S676 =REMAINZER : PRINT #0! !"exotic tyve 


"“& type & 7!" 

ENG SELect 
CLOSE #ch% 

TOC RECHP butftfa 

37 AWAZTT_AEY 

E720 END IF 

END SEFine SHOW _= 


DEFine PROCedure 


NFO 


AWA OT _RKaY¥ 


LOCaLi «5(2) 

t PRINT #0\i "Pleas 
ete eles im 

Pid kKSSINKEYS (#0, & 


INAEYS (#9, 1) 


ite ome ae QQ om uw 


YO END DEEPine AWAIT_KEY 

BT oO 4s 

ae gd ALPERENCS 

SS l0 SEF? ae 

RB2C LO @ 

#530 R 8 current entry I in 
corvect slot in TABLES 

840 IF treeS>rax tiles’? 

eicpegtl MOAN "Brows ¥"s directory ta 
Bigg ea, ™ 

e860 ELSE 

geo IF freet=i1 OR NOT sorting 
BEBO REMark Add name to end ot 
2a90 pos%=frees 

e300 table?(free%)=snames: £%(fr 


t)etyce_masks && flagh(i) 
BLGE 


REMavk Insert in space det 


2=BINARY_CHOP£ (air (1), 


REMark After matca 


#940 REMark Move later elements 

from FOS 

8950 FOR i=treei-1 TO post STSP 
tableS(i+ij=staole$(i) : 


8979 ESD FOR i 
SOR) 22 LF 
Hog REMar< Insert new element at 


Q 


Lad 


Bles(post)scairs (=): E%’ (pos 
aa &S slags Cis 

treev=freestri 
REMark Re display tazxget dir 


SND IF 


7 


MG oo 
ce 
2 
a x 


& INKEY$ 


,t%,i) 


tne 


ble 


ermined 
tableSj+1 


down 


Fef(i-lj=et 


POSS 


ectory 


9240 FND LEFine ADD_FILE 

SU eu 

JU60 DERine PROCedure UPDATE (record$) 
J0/0 REMarx Redisplay record’s, redraw if 
Nes ou 

eae 


ewe AND recorat<t 
2 UG AT #menu%, Lines, 0 

gl 2 ECHO_NAME records 

: SLOSS 


RiMar< Rearaw on a new 
topt=recerd’ 

IF topt+text_hines%>=4 
REMark Last page, 
topt=frees—-text_Li 

SND 2F 

SILL WIDOW 
END =F 
END DEFine UPDATES 


page 


Lops 


JEFine PROC 
Local 


edure MORE_| 


=O 


Ho 


fark Diss_lay is fuL_-screen 


tical area 
“80 REMark Assumes lis oyte Lines 
2 memory 
EMark Jses current ccreer in 


GRAPHIGS 


feben 


Full 


% & wees 


width in 
in fiie & 


Minerva 


F2/F4 64K moae 


939C tTop=CHAN_ WE (#1, 26) :>REMarsx First line 
of Window 

9220 lines=CKAN_W3(#1,350) :REMark Window 
pixel height 

9320 tilelen="LEN(#ch%) : aPage=Lines*128 


+ REMark a 3 /Page 


INK #0,4 
PRIN? ity Beoeeur Graphics file viewer 


keyo" 


933) -(F aPage»+lilelLen 
9360 PRINT #0; "ENTER, SPACE or HSC to 


the menu" 


o3270 ELIE 

9386 PRINT #0;"3;% to move, +ALT for pages, 
Buc tO Exit" 

92390 END ITF 

94030 INK #9,7? : AT #0,2,0 :REMark Backdrop 
for prompt 

9410 PRINT #0;MINIM(aPace, FileLen})," of"! 


FiLeLen! Vis" Le. less 

942U REPeat page_view 

9430 FOR row=roo TO toptlines-l : 
GRAPEICS_LINE row 

9449 _ aPage>=fileLen 
{#0,- EXIT page_view 


9459 Pie eat fine_view 

9469 AT qrO, 20) 

S4yg ; ey Me 
S4e0 x=CODE (INKEYS (#0,-1) 


oN 

: EXIT cage view 
AT #0,27,0 : 

p07 

CURSEN ei) 


S400 x 
8500 
oo10 
(#0, FP¢ 
9520 
NEXT fine_view 


=EDITS 


S(#c 


Iv “eé" INSTR ke 4 


9530 sk koa?! WEXT tine view 
3540 iF kS<"C" OR kS>tileLen & "™" ; 
KEXT tine view 


9356 SET_POSITICN #chs, «4 EXIT 
tine view 
9560 =209 :; tarcet=FPOS (#ch%)- 
~inea*i2g*2 
9S 70 IZ target< Larget=d : 
REMa r ok Frage Lo top 
9581) SaT_PCSITION #cnt,target : 
EXIT tine view 

: ofa, 32 REMark Page down, easy 


RS 


128450 


EN. RAM 
TO 


Zi : target=top* 
MOVE_MEMORY target+128 


target, {lines-1)*,28 

9620 GRAPHiCS_LINE top+iines- 
NEXT tine_view 

9630 =REMAINCES : SUSPSND_ TASK 10 
NEXT fine view 

9640 END SELect 

9656 EXIT tine view 

9660 END REPeat fine view 

S679 END REPeat page_view 

S660 END SEFine MORE GRAPHICS 

9690 + 

$7COQ DEFine PROCedure 

GRAPHICS LINE {oi xeliine} 


3710 Lecal Left, target 


9720 left=Filelen-FPOS (#ch$) 
9756 


target=OCREEN_RAM+12é6*pixelbine 
9740 SELect ON left 
S750 


REMark If the file is exhausted, shew 


2 stripey pattern 
9760 *G +: POKES target,F™LL& 


T)}, 228) 


a& 


remains; 
9730 target, INPUTS (#cn%, left) 
PILLS (CHRS S-left) 
=-REMAINDER POKES 
:REMark 1 line 


target, IN> 


9 REFERENCE tables (J) 
oY Brine FruNction STNARY_ CAOPs 
( ; ples) 
g REMark firsth, ast}, poss 
9 2EMark Determine Location by binary 
C JOT! } 
g OR i=l TO free%—-i 
a 'e nameS<tables (1) BXiT L 
NO POR L 
ETurn i-l 
eND DEFine BINARY CROF% 


ne PROCedure FIND(n#) 
SLY Foeols.t 


) DEF: 


vers lon, 


REMarn 


Wses 


4 >,detaiis 3 
UPS (n$ 


55=LOCK 
pog<0 
PRINT #6,"EIND “"& ne & " 


REPORT pos 
ELOE 
Setails=BPEEK_u(24)+pos*s 


BPEEKS (details)<4 CR BPEEKS 


a 


cus #2 
LIST BPESK_W% (detailsté) TO 
BPEEK_wWt (detaiis+4)+100 
Sipe END LF 
BND IF 
END DEFine FINO 


Senge ners HOW_COME 
REM= rk DLY Toolkit version 
REMax« Print contents of RETURN 5 

ructively) 

rogtarLl,rtend,i 

> PRINT 

start=BPEEK_L(56) 
yrend=BPEEK_L{60) 

REMark ITE {rtend-rtstart) MOD 


i=rretart 
QpPeat scan_rt 


Ti4+24 
tr i>rztend-24 THEN EXIT ecean rt 
IF BPEREK_W? s(i+i8) THEN 

PRINT "Call at ";BEEBBK, WS (1-1 


(= 


-REMark Cre incemplete line 


& 


JTét#eh 


ack 


24 THEN 


END REPeat 
iQ END OFPFine HOW_COME 


scar TE 


The File 
Worla 


tnstaliment Of 
The Last D1 


The Missing Last 
Browser Article From 
Worid 


It's the 'lost' final part of the QL 


browser crogram, with file copy, meve and 
delete operations impiemernted as promised in 
tne Last issue cf the magazine, printed in 
Aprii 1994. The accompanying article was 
either never written or only in draft - it's 
not an the disc, theugnh there was 4 


paragrapk about toolkit dependencies wnich 


are noted anyway in the Listing. 
Simon Goodwin asked if could host this 
orline ‘or people wno followed the criginai 


article. Simon said: 


"Z'm copying this to Dilwyn Jones in case 
he'd like to host tne file online for 
athers... after 15 years hardly ‘news', 
some readers may ve glad of the closure, if 
rothing else!" 


it's 


